>>841
選ぶカードを3枚から増やしていくと
> calc=\(n) t(apply(RcppAlgos::permuteGeneral(13,n),1,\(x) (x[-1]+14-x[1])%%13)) |> unique() |> nrow()
> calc(3)
[1] 132
> calc(4)
[1] 1320
> calc(5)
[1] 11880
> calc(6)
[1] 95040
> calc(7)
[1] 665280