A244962 Generalized pentagonal numbers that are also partition numbers.
1, 2, 5, 7, 15, 22, 77, 176, 4565
Offset: 1
Programs
-
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 *)
Comments