|
%I
%S 2,32,90,110,134,152,168,180,194,212,222,234,270,290,300,302,368,530,
%T 540,548,570,582,630,650,698,810,848,888,914,920,930,968,990,1100,
%U 1122,1148,1218,1232,1242,1320,1340,1350,1364,1388,1418,1448,1452,1514
%N Indices n such that A122102[n] = Sum[ Prime[k]^4, {k,1,n}] is a prime.
%C Corresponding primes of form Sum[ Prime[k], {k,1,n} ] are listed in A122128[n] = {97,1567204831,771745495049,...}.
%t Select[Range[1514],PrimeQ[Sum[Prime[k]^4,{k,1,#1}]]&]
%Y Cf. A122102, A122128.
%K nonn
%O 1,1
%A _Alexander Adamchuk_, Aug 20 2006
|
