|
Search: id:A066920
|
|
|
| A066920 |
|
Number of partitions of n into lucky parts. |
|
+0
1
|
|
| 1, 1, 2, 2, 2, 3, 4, 4, 6, 7, 7, 9, 11, 12, 15, 18, 19, 23, 26, 28, 34, 39, 42, 49, 56, 60, 69, 79, 85, 97, 110, 118, 133, 150, 162, 181, 203, 219, 243, 271, 292, 323, 359, 387, 425, 471, 507, 554, 612, 659, 719, 791, 851, 924, 1012, 1089, 1179, 1289, 1386, 1497, 1630
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
MATHEMATICA
|
lst = Range[1, 100, 2]; i = 2; While[ i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++ ]; Rest@ CoefficientList[Series[1/Times @@ (1 - x^lst), {x, 0, 61}], x] (* Robert G. Wilson v *)
|
|
CROSSREFS
|
Cf. A000959.
Sequence in context: A079398 A071988 A029050 this_sequence A035381 A096938 A130084
Adjacent sequences: A066917 A066918 A066919 this_sequence A066921 A066922 A066923
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Naohiro Nomoto (n_nomoto(AT)yabumi.com), Jan 26 2002
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(at)rgwv.com), May 12 2006
|
|
|
Search completed in 0.002 seconds
|
