A122128 Primes of form Sum[ Prime[k]^4, {k,1,n} ] or primes in A122102[n].

97, 1567204831, 771745495049, 2523423764749, 7766703722053, 16167518745751, 28962816187367, 42932141486099, 65562552714433, 109392979058371, 142311158323421, 194472382292633, 434809071709709, 654363068549089

Offset

1,1

Comments

A122102[n] = Sum[ Prime[k]^4, {k,1,n} ] begins {16,97,722,3123,17764,46325,...}. Indices n such that A122102[n] is prime are listed in A122127[n] = {2,32,90,110,134,152,168,180,194,212,222,234,270,290,300,...}.

Links

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

Formula

a(n) = A122102[ A122127[n] ].

Mathematica

Select[Table[Sum[Prime[k]^4, {k, 1, n}], {n, 1, 700}], PrimeQ[ #1]&]

Crossrefs

Cf. A122102, A122127.

Sequence in context: A186167 A322606 A145309 * A114430 A258765 A033418

Adjacent sequences: A122125 A122126 A122127 * A122129 A122130 A122131

Keyword

nonn

Author

Alexander Adamchuk, Aug 20 2006

Status

approved