A122125 Indices n such that A122103[n] = Sum[ Prime[k]^5, {k,1,n}] is a prime.

66, 148, 150, 164, 174, 214, 238, 264, 312, 328, 354, 440, 516, 536, 616, 624, 724, 744, 774, 836, 940, 1002, 1030, 1034, 1038, 1064, 1086, 1092, 1108, 1162, 1322, 1394, 1424, 1468, 1500, 1630, 1654, 1668, 1684, 1694, 1840, 1886, 1980

Offset: 1

Author

Alexander Adamchuk, Aug 20 2006

Keywords

• nonn

Comments

Corresponding primes of form Sum[ Prime[k]^5, {k,1,n} ] are listed in A122126[n] = {32353461605953,9874820441996857,10821208357045699,...}.

Crossrefs

Cf. A122103, A122126.

Programs

Mathematica

Select[Range[2000],PrimeQ[Sum[Prime[k]^5,{k,1,#1}]]&]