This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A154798 #25 Aug 28 2024 09:36:36
%S A154798 2,22,42,1002,2436,3718,5604,12310,37338,53174,105558,204226,715220,
%T A154798 1300156,1741630,2323520,4087968,7089500,12132164,15796476,26543660,
%U A154798 34262962,92669720,118114304,150198136,190569292,384276336,483502844
%N A154798 Even partition numbers of even numbers.
%C A154798 Even numbers in A058696.
%H A154798 Charles R Greathouse IV, <a href="/A154798/b154798.txt">Table of n, a(n) for n = 1..10000</a>
%p A154798 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 A154798 Select[Table[PartitionsP[n], {n, 0, 200, 2}], EvenQ] (* _Jean-François Alcover_, Aug 28 2015 *)
%o A154798 (PARI) select(x->!(x%2), vector(80, n, numbpart(2*n))) \\ _Michel Marcus_, Aug 28 2015
%Y A154798 Cf. A000041, A005843, A058696, A127219, A154795, A154796, A154797.
%K A154798 nonn
%O A154798 1,1
%A A154798 _Omar E. Pol_, Jan 26 2009
%E A154798 More terms from _Alois P. Heinz_, Jul 28 2009