|
Search: id:A036497
|
|
|
| A036497 |
|
Number of partitions of n into distinct primes (counting 1 as a prime). |
|
+0
1
|
|
| 1, 1, 1, 2, 1, 2, 2, 2, 3, 2, 3, 3, 3, 4, 4, 4, 5, 5, 6, 7, 7, 8, 8, 9, 10, 10, 11, 11, 11, 13, 13, 15, 16, 16, 18, 18, 20, 22, 22, 24, 25, 26, 29, 30, 32, 33, 34, 37, 39, 41, 44, 45, 47, 51, 53, 57, 59, 61, 64, 67, 72, 76, 79, 82, 86, 89, 95, 100, 103, 108, 112, 118
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
MATHEMATICA
|
myprime[ n_ ] := If[ n===0, 1, Prime[ n ] ]; ta1=Table[ Product[ 1+z^myprime[ k ], {k, 1, n} ]~CoefficientList~z, {n, 31, 32} ]; leveled=Count[ Take[ Last@ta1, Length@ta1[ [ -2 ] ] ]-ta1[ [ -2 ] ], 0 ]; Take[ Last@ta1, leveled ]
|
|
CROSSREFS
|
Cf. A000586.
Sequence in context: A085033 A096446 A008677 this_sequence A035460 A029232 A025807
Adjacent sequences: A036494 A036495 A036496 this_sequence A036498 A036499 A036500
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
wouter.meeussen(AT)pandora.be Thu Dec 17 08:27:09 1998
|
|
|
Search completed in 0.002 seconds
|
