OFFSET
1,1
COMMENTS
LINKS
Colin Barker, Table of n, a(n) for n = 1..600
MATHEMATICA
Select[Range[1700], IntegerExponent[PartitionsP[#], 2] == 4 &] (* Amiram Eldar, May 25 2024 *)
PROG
(PARI) isok(n) = valuation(numbpart(n), 2)==4;
select(n->isok(n), vector(2000, n, n))
CROSSREFS
KEYWORD
nonn
AUTHOR
Colin Barker, Nov 28 2016
STATUS
approved