|
|
A154798
|
|
Even partition numbers of even numbers.
|
|
11
|
|
|
2, 22, 42, 1002, 2436, 3718, 5604, 12310, 37338, 53174, 105558, 204226, 715220, 1300156, 1741630, 2323520, 4087968, 7089500, 12132164, 15796476, 26543660, 34262962, 92669720, 118114304, 150198136, 190569292, 384276336, 483502844
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MAPLE
|
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
|
|
MATHEMATICA
|
|
|
PROG
|
(PARI) select(x->!(x%2), vector(80, n, numbpart(2*n))) \\ Michel Marcus, Aug 28 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,changed
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|