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 A052001 #28 Mar 01 2019 04:46:50 %S A052001 2,22,30,42,56,176,490,792,1002,1958,2436,3010,3718,5604,6842,12310, %T A052001 37338,53174,89134,105558,124754,204226,451276,614154,715220,831820, %U A052001 1300156,1741630,2012558,2323520,4087968,7089500,8118264,12132164 %N A052001 Even partition numbers. %C A052001 Intersection of A005843 and A000041; A059841(a(n)) * A167392(a(n)) = 1. [_Reinhard Zumkeller_, Nov 03 2009] %H A052001 Reinhard Zumkeller, <a href="/A052001/b052001.txt">Table of n, a(n) for n = 1..1000</a> %F A052001 a(n) = 2*A213179(n). - _Omar E. Pol_, May 08 2013 %t A052001 Select[PartitionsP[Range[100]], EvenQ] (* _Jean-François Alcover_, Mar 01 2019 *) %o A052001 (PARI) for(n=1, 100, if((k=numbpart(n))%2==0, print1(k", "))) \\ _Altug Alkan_, Nov 02 2015 %o A052001 (Haskell) %o A052001 a052001 n = a052001_list !! (n-1) %o A052001 a052001_list = filter even a000041_list %o A052001 -- _Reinhard Zumkeller_, Nov 03 2015 %Y A052001 Cf. A000041, A001560, A005843, A052002, A052003, A059841, A167392, A213179. %K A052001 nonn %O A052001 1,1 %A A052001 _Patrick De Geest_, Nov 15 1999 %E A052001 Offset corrected by _Reinhard Zumkeller_, Nov 03 2015