

A271048


Numbers n such that A000070(n) is prime.


0



1, 3, 5, 8, 9, 10, 13, 18, 19, 36, 46, 60, 71, 79, 86, 95, 140, 174, 178, 221, 237, 284, 286, 300, 316, 404, 441, 445, 452, 454, 647, 717, 741, 754, 787, 853, 932, 945, 968, 1065, 1098, 1145, 1163, 1170, 1196, 1327, 1657, 1664, 1994, 2074, 2210, 2287, 2333
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

Table of n, a(n) for n=1..53.


EXAMPLE

5 is a term because A000070(5) = 19 and 19 a is prime.


MATHEMATICA

Complement[Table[If[PrimeQ[Sum[PartitionsP[n], {n, 0, k}]] == True, k, 0], {k, 0, 2000}], {0}]


PROG

(PARI) isok(n) = isprime(sum(k=0, n, numbpart(k))); \\ Michel Marcus, Apr 06 2016


CROSSREFS

Cf. A000040, A000041, A000070.
Sequence in context: A325413 A328066 A064186 * A189127 A189288 A190205
Adjacent sequences: A271045 A271046 A271047 * A271049 A271050 A271051


KEYWORD

nonn


AUTHOR

Benedict W. J. Irwin, Mar 29 2016


STATUS

approved



