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

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 * A366473 A189127 A189288

Adjacent sequences: A271045 A271046 A271047 * A271049 A271050 A271051

Keyword

nonn

Author

Benedict W. J. Irwin, Mar 29 2016

Status

approved