login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A052001 Even partition numbers. 23
2, 22, 30, 42, 56, 176, 490, 792, 1002, 1958, 2436, 3010, 3718, 5604, 6842, 12310, 37338, 53174, 89134, 105558, 124754, 204226, 451276, 614154, 715220, 831820, 1300156, 1741630, 2012558, 2323520, 4087968, 7089500, 8118264, 12132164 (list; graph; refs; listen; history; text; internal format)
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

Cf. A000041, A001560, A005843, A052002, A052003, A059841, A167392, A213179.

Sequence in context: A137106 A053962 A111771 * A275029 A085185 A166726

Adjacent sequences:  A051998 A051999 A052000 * A052002 A052003 A052004

KEYWORD

nonn

AUTHOR

Patrick De Geest, Nov 15 1999

EXTENSIONS

Offset corrected by Reinhard Zumkeller, Nov 03 2015

STATUS

approved

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 23 09:35 EDT 2019. Contains 322385 sequences. (Running on oeis4.)