OFFSET
1,1
COMMENTS
Intersection of A005843 and A000041; A059841(a(n)) * A167392(a(n)) = 1. [Reinhard Zumkeller, Nov 03 2009]
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = 2*A213179(n). - Omar E. Pol, May 08 2013
MATHEMATICA
Select[PartitionsP[Range[100]], EvenQ] (* Jean-François Alcover, Mar 01 2019 *)
PROG
(PARI) for(n=1, 100, if((k=numbpart(n))%2==0, print1(k", "))) \\ Altug Alkan, Nov 02 2015
(Haskell)
a052001 n = a052001_list !! (n-1)
a052001_list = filter even a000041_list
-- Reinhard Zumkeller, Nov 03 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Patrick De Geest, Nov 15 1999
EXTENSIONS
Offset corrected by Reinhard Zumkeller, Nov 03 2015
STATUS
approved