%I #2 Mar 31 2012 13:20:28
%S 32353461605953,9874820441996857,10821208357045699,20261841065985329,
%T 30672624709674923,126540093912585209,267908140423628051,
%U 538379772006780299,1713808283318707391,2413049165702037271
%N Primes of form Sum[ Prime[k]^5, {k,1,n} ] or primes in A122103[n].
%C A122103[n] = Sum[ Prime[k]^5, {k,1,n} ] begins {32,275,3400,20207,181258,552551,1972408,4448507,...}. Indices n such that A122103[n] is prime are listed in A122125[n] = {66,148,150,164,174,214,238,264,312,328,354,440,516,536,616,624,724,744,774, 836,940,...}.
%F a(n) = A122103[ A122125[n] ].
%t Select[Table[Sum[Prime[k]^5,{k,1,n}],{n,1,1000}],PrimeQ[ #1]&]
%Y Cf. A122103, A122125.
%K nonn
%O 1,1
%A _Alexander Adamchuk_, Aug 20 2006
|