|
%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
|
