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,1

Comments

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

Links

Table of n, a(n) for n=1..43.

Mathematica

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

Crossrefs

Cf. A122103, A122126.

Sequence in context: A278126 A044317 A044698 * A278783 A358102 A258966

Adjacent sequences: A122122 A122123 A122124 * A122126 A122127 A122128

Keyword

nonn

Author

Alexander Adamchuk, Aug 20 2006

Status

approved