|
| |
|
|
A154796
|
|
Even partition numbers of odd numbers.
|
|
6
|
|
|
|
30, 56, 176, 490, 792, 1958, 3010, 6842, 89134, 124754, 451276, 614154, 831820, 2012558, 8118264, 13848650, 133230930, 214481126, 271248950, 541946240, 851376628, 1327710076, 3163127352, 4835271870, 5964539504, 7346629512
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
Even numbers in A058695.
|
|
|
LINKS
|
Table of n, a(n) for n=1..26.
|
|
|
EXAMPLE
|
Contribution from Emeric Deutsch, Aug 02 2009: (Start)
The even number 30 is in the sequence as the partition number of the odd number 9.
(End)
|
|
|
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, 1, 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); [From Alois P. Heinz, Jul 28 2009]
with(combinat): a := proc (n) if `mod`(numbpart(2*n-1), 2) = 0 then numbpart(2*n-1) else end if end proc: seq(a(n), n = 1 .. 70); [From Emeric Deutsch, Aug 02 2009]
|
|
|
CROSSREFS
|
Cf. A000041, A005408, A058695, A154795, A154797, A154798.
Sequence in context: A154599 A031126 A048451 * A004962 A121960 A040870
Adjacent sequences: A154793 A154794 A154795 * A154797 A154798 A154799
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Omar E. Pol, Jan 26 2009
|
|
|
EXTENSIONS
|
More terms from Alois P. Heinz, Jul 28 2009
|
|
|
STATUS
|
approved
|
| |
|
|
