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

Author

Alexander Adamchuk, Aug 20 2006

Keywords

• nonn

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,...}.

Crossrefs

Cf. A122102, A122127.

Programs

Mathematica

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

Formula

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