The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.



(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A154798 Even partition numbers of even numbers. 11


%S 2,22,42,1002,2436,3718,5604,12310,37338,53174,105558,204226,715220,

%T 1300156,1741630,2323520,4087968,7089500,12132164,15796476,26543660,

%U 34262962,92669720,118114304,150198136,190569292,384276336,483502844

%N Even partition numbers of even numbers.

%C Even numbers in A058696.

%H Charles R Greathouse IV, <a href="/A154798/b154798.txt">Table of n, a(n) for n = 1..10000</a>

%p aa:= proc(n, i) if n=0 then 1 elif n<0 or i=0 then 0 else aa(n,i):= aa(n, i-1) +aa(n-i, i) fi end: a:= proc(n) local k; if n>1 then a(n-1) fi; for k from `if`(n=1, 0, b(n-1)+2) by 2 while irem(aa(k, k), 2)=1 do od; b(n):= k; aa(k, k) end: seq(a(n), n=1..40); # _Alois P. Heinz_, Jul 28 2009

%t Select[Table[PartitionsP[n], {n, 0, 200, 2}], EvenQ] (* _Jean-Fran├žois Alcover_, Aug 28 2015 *)

%o (PARI) select(x->!(x%2), vector(80, n, numbpart(2*n))) \\ _Michel Marcus_, Aug 28 2015

%Y Cf. A000041, A005843, A058696, A154795, A154796, A154797.

%K nonn

%O 1,1

%A _Omar E. Pol_, Jan 26 2009

%E More terms from _Alois P. Heinz_, Jul 28 2009

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 12 10:06 EDT 2021. Contains 342920 sequences. (Running on oeis4.)