%I #11 Jul 06 2024 04:43:16
%S 3,5,7,19,47,73,97,131,223,229,257,263,277,331,367,389,397,487,577,
%T 641,643,683,701,739,743,757,797,857,877,1031,1291,1297,1423,1451,
%U 1543,1579,1637,1697,1723,1823,1949,2039,2081,2381,2477,2539,2617,2659,2689,2749
%N Primes in A109790.
%H Amiram Eldar, <a href="/A126144/b126144.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Select[Range[3000], PrimeQ[Sum[Prime[Prime[i]],{i,1,#}]]&],PrimeQ[ # ] &] (* _Stefan Steinerberger_, Jun 23 2007 *)
%Y Cf. A006450, A083186, A109790.
%K nonn
%O 1,1
%A _J. M. Bergot_, Jun 11 2007
%E More terms from _Stefan Steinerberger_, Jun 23 2007