%I #8 Dec 26 2019 05:05:58
%S 3469,4447,5641,6637,9013,9631,10903,11173,11839,13831,15139,16183,
%T 17581,18793,19819,21523,21673,22027,22189,25759,25771,28123,28933,
%U 30517,33931,34843,37171,42187,42337,42901,46279,47353,48823,49123,55381,57709,59023,61681
%N Primes p such that p + googol is prime.
%H Amiram Eldar, <a href="/A108250/b108250.txt">Table of n, a(n) for n = 1..10000</a>
%F A googol = 10^100.
%t Select[Range[5*10^4],And @@ PrimeQ[{#, 10^100 + #} ] &] (* _Amiram Eldar_, Dec 26 2019 *)
%o (PARI) g(n) = forstep(x=1,n,2,if(isprime(10^100+x)&isprime(x),print1(x",")))
%Y Cf. A108252.
%K easy,nonn
%O 1,1
%A _Cino Hilliard_, Jun 17 2005
%E More terms from _Amiram Eldar_, Dec 26 2019