|
%I #20 May 10 2013 11:30:56
%S 30,42,792,1002,2436,5604,37338,105558,614154,4087968,8118264,
%T 15796476,133230930,384276336,2841940500,3163127352,4835271870,
%U 7346629512,18440293320,30388671978,45060624582,107438159466,142798995930,684957390936,1820701100652
%N Partition numbers of the form 6k.
%C Intersection of A008588 and A000041.
%H Paul Tek, <a href="/A225326/b225326.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = 6*A217726(n). - _Omar E. Pol_, May 08 2013
%e 30 is in the sequence because 6*5 = 30 and 30 is a partition number: p(9) = A000041(9) = 30.
%t Select[PartitionsP[Range[300]], Mod[#, 6] == 0 &] (* _T. D. Noe_, May 05 2013 *)
%o (PARI) for(n=9,1e3,t=numbpart(n);if(t%6,,print1(t", "))) \\ _Charles R Greathouse IV_, May 08 2013
%Y Cf. A000041, A008588, A052001, A072871, A087183, A225324, A225325, A225327, A225358, A225360, A127544, A225361
%K nonn
%O 1,1
%A _Omar E. Pol_, May 05 2013
%E a(8)-a(25) from _T. D. Noe_, May 05 2013
|
