A225326 - OEIS

%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