[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A122128
Primes of form Sum[ Prime[k]^4, {k,1,n} ] or primes in A122102[n].
1
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,...}.
FORMULA
a(n) = A122102[ A122127[n] ].
MATHEMATICA
Select[Table[Sum[Prime[k]^4, {k, 1, n}], {n, 1, 700}], PrimeQ[ #1]&]
CROSSREFS
Sequence in context: A186167 A322606 A145309 * A114430 A258765 A033418
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 20 2006
STATUS
approved