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

Comments

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

Links

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

Mathematica

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

Crossrefs

Cf. A122102, A122128.

Sequence in context: A103028 A139732 A037313 * A303078 A226395 A257965

Adjacent sequences: A122124 A122125 A122126 * A122128 A122129 A122130

Keyword

nonn

Author

Alexander Adamchuk, Aug 20 2006

Status

approved