|
|
A244962
|
|
Generalized pentagonal numbers that are also partition numbers.
|
|
0
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|