A225326 Partition numbers of the form 6k.

30, 42, 792, 1002, 2436, 5604, 37338, 105558, 614154, 4087968, 8118264, 15796476, 133230930, 384276336, 2841940500, 3163127352, 4835271870, 7346629512, 18440293320, 30388671978, 45060624582, 107438159466, 142798995930, 684957390936, 1820701100652

Offset

1,1

Comments

Intersection of A008588 and A000041.

Links

Paul Tek, Table of n, a(n) for n = 1..10000

Formula

a(n) = 6*A217726(n). - Omar E. Pol, May 08 2013

Example

30 is in the sequence because 6*5 = 30 and 30 is a partition number: p(9) = A000041(9) = 30.

Mathematica

Select[PartitionsP[Range[300]], Mod[#, 6] == 0 &] (* T. D. Noe, May 05 2013 *)

Prog

(PARI) for(n=9, 1e3, t=numbpart(n); if(t%6, , print1(t", "))) \\ Charles R Greathouse IV, May 08 2013

Crossrefs

Cf. A000041, A008588, A052001, A072871, A087183, A225324, A225325, A225327, A225358, A225360, A127544, A225361

Sequence in context: A258358 A090692 A196677 * A226727 A102843 A242445

Adjacent sequences: A225323 A225324 A225325 * A225327 A225328 A225329

Keyword

nonn

Author

Omar E. Pol, May 05 2013

Extensions

a(8)-a(25) from T. D. Noe, May 05 2013

Status

approved