A324465 Exponent of highest power of 2 that divides A324152(n).
0, 0, 1, 3, 2, 2, 3, 5, 2, 3, 4, 6, 5, 4, 5, 7, 2, 3, 4, 6, 5, 5, 6, 8, 5, 6, 7, 9, 8, 6, 7, 9, 2, 3, 4, 6, 5, 5, 6, 8, 5, 6, 7, 9, 8, 7, 8, 10, 5, 6, 7, 9, 8, 8, 9, 11, 8, 9, 10, 12, 11, 8, 9, 11, 2, 3, 4, 6, 5, 5, 6, 8, 5, 6, 7, 9, 8, 7, 8, 10, 5, 6, 7, 9
Offset: 0
Keywords
Links
- Robert G. Wilson v, Table of n, a(n) for n = 0..10000 (first 501 terms from N. J. A. Sloane)
Programs
-
Mathematica
f[n_] := IntegerExponent[(3/((n + 1)(n + 2)(n + 3)))*Multinomial[n, n, n, n], 2]; f[0] = 0; Array[f, 84, 0] (* Robert G. Wilson v, Mar 01 2019 *)
-
PARI
a(n) = 3*hammingweight(n) - valuation((n+1)*(n+2)*(n+3), 2); \\ Michel Marcus, Jul 10 2022
Comments