A122127 Indices n such that A122102[n] = Sum[ Prime[k]^4, {k,1,n}] is a prime.

2, 32, 90, 110, 134, 152, 168, 180, 194, 212, 222, 234, 270, 290, 300, 302, 368, 530, 540, 548, 570, 582, 630, 650, 698, 810, 848, 888, 914, 920, 930, 968, 990, 1100, 1122, 1148, 1218, 1232, 1242, 1320, 1340, 1350, 1364, 1388, 1418, 1448, 1452, 1514

Offset: 1

Author

Alexander Adamchuk, Aug 20 2006

Keywords

• nonn

Comments

Corresponding primes of form Sum[ Prime[k], {k,1,n} ] are listed in A122128[n] = {97,1567204831,771745495049,...}.

Crossrefs

Cf. A122102, A122128.

Programs

Mathematica

Select[Range[1514],PrimeQ[Sum[Prime[k]^4,{k,1,#1}]]&]