login
Partition numbers of the form 4k.
9

%I #19 May 10 2013 11:30:04

%S 56,176,792,2436,5604,451276,715220,831820,1300156,2323520,4087968,

%T 7089500,8118264,12132164,15796476,26543660,92669720,118114304,

%U 150198136,190569292,384276336,483502844,541946240,761002156,851376628,1188908248,1327710076,1844349560

%N Partition numbers of the form 4k.

%C Intersection of A008586 and A000041.

%H Paul Tek, <a href="/A225324/b225324.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = 4*A216258(n). - _Omar E. Pol_, May 08 2013

%e 56 is in the sequence because 4*14 = 56 and 56 is a partition number: p(11) = A000041(11) = 56.

%t Select[PartitionsP[Range[300]], Mod[#, 4] == 0 &] (* _T. D. Noe_, May 05 2013 *)

%o (PARI) for(n=9, 1e3, t=numbpart(n); if(t%4, , print1(t", "))) \\ _Charles R Greathouse IV_, May 08 2013

%Y Cf. A000041, A008586, A052001, A072871, A087183, A225325, A225326, A225327, A225358, A225360, A127544, A225361

%K nonn

%O 1,1

%A _Omar E. Pol_, May 05 2013

%E a(6)-a(28) from _T. D. Noe_, May 05 2013