A271048 - OEIS

A271048

Numbers n such that A000070(n) is prime.

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