|
%I #17 Apr 07 2016 02:26:43
%S 1,3,5,8,9,10,13,18,19,36,46,60,71,79,86,95,140,174,178,221,237,284,
%T 286,300,316,404,441,445,452,454,647,717,741,754,787,853,932,945,968,
%U 1065,1098,1145,1163,1170,1196,1327,1657,1664,1994,2074,2210,2287,2333
%N Numbers n such that A000070(n) is prime.
%e 5 is a term because A000070(5) = 19 and 19 a is prime.
%t Complement[Table[If[PrimeQ[Sum[PartitionsP[n], {n, 0, k}]] == True, k, 0], {k, 0, 2000}], {0}]
%o (PARI) isok(n) = isprime(sum(k=0, n, numbpart(k))); \\ _Michel Marcus_, Apr 06 2016
%Y Cf. A000040, A000041, A000070.
%K nonn
%O 1,2
%A _Benedict W. J. Irwin_, Mar 29 2016
|
