%I #2 Mar 31 2012 13:20:28
%S 97,1567204831,771745495049,2523423764749,7766703722053,
%T 16167518745751,28962816187367,42932141486099,65562552714433,
%U 109392979058371,142311158323421,194472382292633,434809071709709,654363068549089
%N Primes of form Sum[ Prime[k]^4, {k,1,n} ] or primes in A122102[n].
%C 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,...}.
%F a(n) = A122102[ A122127[n] ].
%t Select[Table[Sum[Prime[k]^4,{k,1,n}],{n,1,700}],PrimeQ[ #1]&]
%Y Cf. A122102, A122127.
%K nonn
%O 1,1
%A _Alexander Adamchuk_, Aug 20 2006
|