A324469 Exponent of highest power of 3 that divides multinomial(4*n;n,n,n,n).
0, 1, 2, 1, 2, 4, 2, 5, 6, 1, 2, 3, 2, 3, 6, 4, 6, 7, 2, 3, 4, 5, 6, 8, 6, 8, 9, 1, 2, 3, 2, 3, 5, 3, 6, 7, 2, 3, 4, 3, 4, 8, 6, 8, 9, 4, 5, 6, 6, 7, 9, 7, 9, 10, 2, 3, 4, 3, 4, 6, 4, 9, 10, 5, 6, 7, 6, 7, 10, 8, 10, 11, 6, 7, 8, 8, 9, 11, 9, 11, 12, 1, 2
Offset: 0
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 0..10000
Crossrefs
Programs
-
Maple
[seq(padic[ordp](combinat[multinomial](4*n, n$4), 3), n=0..128)];
-
Mathematica
s[n_] := Plus @@ IntegerDigits[n, 3]; a[n_] := 2*s[n] - s[4*n]/2; Array[a, 100, 0] (* Amiram Eldar, Feb 21 2021 *)
Formula
From Amiram Eldar, Feb 21 2021: (Start)