OFFSET
0,3
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..10000
FORMULA
MATHEMATICA
a[n_] := 2^IntegerExponent[PartitionsP[n], 2]; Array[a, 100, 0] (* Amiram Eldar, May 25 2024 *)
PROG
(PARI) for(n=0, 10^3, my(p=numbpart(n)); print1(2^valuation(p, 2), ", ")); \\ Joerg Arndt, May 09 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Sharon Sela (sharonsela(AT)hotmail.com), May 04 2002
EXTENSIONS
More terms from John W. Layman, May 09 2002
STATUS
approved