login
Generalized pentagonal numbers that are also partition numbers.
0

%I #14 Jul 15 2014 04:34:52

%S 1,2,5,7,15,22,77,176,4565

%N Generalized pentagonal numbers that are also partition numbers.

%C Intersection of A001318 and A000041.

%C No more terms < A000041(2*10^6), a number with 1569 digits. - _Lars Blomberg_, Jul 15 2014

%t 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 *)

%Y Cf. A000041, A001318, A175003.

%K nonn,hard,more

%O 1,2

%A _Omar E. Pol_, Jul 10 2014