Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A122127
Indices n such that A122102[n] = Sum[ Prime[k]^4, {k,1,n}] is a prime.
2
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,...}.
MATHEMATICA
Select[Range[1514], PrimeQ[Sum[Prime[k]^4, {k, 1, #1}]]&]
CROSSREFS
Sequence in context: A103028 A139732 A037313 * A303078 A226395 A257965
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 20 2006
STATUS
approved