login
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
OFFSET
1,2
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
KEYWORD
nonn
AUTHOR
STATUS
approved