%I #9 Dec 21 2022 19:11:44
%S 797,911,3221,3407,5867,6173,8951,10937,12809,13127,14783,20639,22079,
%T 22109,25247,26183,27191,29501,29927,30677,31013,31859,33329,34757,
%U 34949,35339,35603,35897,37409,38867,40241,41177,42239,44543,44753,48491,49499,49757,51383
%N Primes p such that googol - p is prime.
%C A googol = 10^100.
%H Amiram Eldar, <a href="/A108252/b108252.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[5*10^4], And @@ PrimeQ[{#, 10^100 - #} ] &] (* _Amiram Eldar_, Dec 26 2019 *)
%t Select[Prime[Range[5500]],PrimeQ[10^100-#]&] (* _Harvey P. Dale_, Dec 21 2022 *)
%o (PARI) g(n) = forstep(x=1,n,2,if(isprime(10^100-x)&isprime(x),print1(x",")))
%Y Cf. A108250.
%K easy,nonn,fini
%O 1,1
%A _Cino Hilliard_, Jun 17 2005
%E More terms from _Amiram Eldar_, Dec 26 2019
|