login
Primes in A109790.
2

%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