A324467 Three times the binary weight of n: 3*A000120(n).

0, 3, 3, 6, 3, 6, 6, 9, 3, 6, 6, 9, 6, 9, 9, 12, 3, 6, 6, 9, 6, 9, 9, 12, 6, 9, 9, 12, 9, 12, 12, 15, 3, 6, 6, 9, 6, 9, 9, 12, 6, 9, 9, 12, 9, 12, 12, 15, 6, 9, 9, 12, 9, 12, 12, 15, 9, 12, 12, 15, 12, 15, 15, 18, 3, 6, 6, 9, 6, 9, 9, 12, 6, 9, 9, 12, 9, 12, 12, 15, 6, 9, 9, 12

Offset

0,2

Comments

Exponent of highest power of 2 that divides multinomial(4*n;n,n,n,n).

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..8191

Maple

[seq(padic[ordp](multinomial(4*n, n, n, n, n), 2), n=0..128)];

Mathematica

3 Log[2, Nest[Join[#, 2 #]&, {1}, 8]] (* Vincenzo Librandi, Mar 11 2019 *)

Prog

(Magma) [3*Valuation(Binomial(2*n, n), 2): n in [0..120]]; // Vincenzo Librandi, Mar 11 2019

Crossrefs

Cf. A000120, A006480, A324465, A324466.

Sequence in context: A040007 A351024 A110634 * A151787 A113397 A341343

Adjacent sequences: A324464 A324465 A324466 * A324468 A324469 A324470

Keyword

nonn

Author

N. J. A. Sloane, Mar 02 2019

Status

approved