%I #11 Dec 26 2019 05:07:20

%S 35217,85077,253407,326271,343131,349527,356667,408609,471729,517707,

%T 582069,613299,614997,661947,667827,793359,810099,852579,876687,

%U 960897,1006041,1023807,1076211,1089411,1102461,1179807,1264467,1355997,1384617,1649049,1652127,1661799

%N Numbers k such that googol - k is an upper twin prime.

%C Googol = 10^100.

%H Amiram Eldar, <a href="/A133282/b133282.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[Range[10^6],And @@ PrimeQ[10^100 - # - {0, 2}] &] (* _Amiram Eldar_, Dec 26 2019 *)

%o (PARI) googol2(n) = { local(x,a,j); x=10^100; forstep(j=1,1000000,2, a=x-j; if(ispseudoprime(a)&ispseudoprime(a-2), print1(j","); ); ) }

%Y Cf. A001097, A001359, A006512, A133281.

%K nonn,fini

%O 1,1

%A _Cino Hilliard_, Oct 13 2007, Feb 06 2008

%E More terms from _Amiram Eldar_, Dec 26 2019