OFFSET
1,2
COMMENTS
No more terms < A000041(2*10^6), a number with 1569 digits. - Lars Blomberg, Jul 15 2014
MATHEMATICA
nmax=PartitionsP[50]; Intersection[Table[PartitionsP[n], {n, 0, 50}], Table[n*(n+1)/6, {n, Select[Range[0, nmax], Mod[#, 3]!=1&]}]] (* Vaclav Kotesovec, Jul 15 2014 *)
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Omar E. Pol, Jul 10 2014
STATUS
approved