|
|
|
|
0, 1, 2, 4, 11, 17, 37, 53, 103, 255, 339, 759, 1259, 1609, 2589, 5119, 9791, 12075, 22249, 32991, 40025, 70487, 101697, 173681, 345855, 483329, 570077, 789639, 927405, 1274117, 3725409, 5010687, 7755775, 8953855, 18108417, 20792119
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
This is the number of partitions of the n-th prime p into distinct odd parts that are less than p.
|
|
LINKS
|
|
|
EXAMPLE
|
a(4)=4 because the fourth prime (7) can be written in four different ways {6+1, 5+2, 4+3, 1+2+4}.
|
|
MATHEMATICA
|
Table[PartitionsQ[Prime[n]] - 1, {n, 50}] (* G. C. Greubel, Oct 15 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|