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