OFFSET
0,12
COMMENTS
Write A000041(n) = 2^k * s where s is odd, then a(n) = k.
LINKS
Joerg Arndt, Table of n, a(n) for n = 0..10000
FORMULA
MAPLE
a:= n-> padic[ordp](combinat[numbpart](n), 2):
seq(a(n), n=0..120); # Alois P. Heinz, Nov 23 2016
MATHEMATICA
a[n_] := IntegerExponent[PartitionsP[n], 2]; Array[a, 100, 0] (* Amiram Eldar, May 25 2024 *)
PROG
(PARI) { my( x='x+O('x^100), v=Vec(1/eta(x)) ); vector(#v, n, valuation(v[n], 2)) }
CROSSREFS
KEYWORD
nonn
AUTHOR
Joerg Arndt, Nov 23 2016
STATUS
approved