|
|
A108252
|
|
Primes p such that googol - p is prime.
|
|
2
|
|
|
797, 911, 3221, 3407, 5867, 6173, 8951, 10937, 12809, 13127, 14783, 20639, 22079, 22109, 25247, 26183, 27191, 29501, 29927, 30677, 31013, 31859, 33329, 34757, 34949, 35339, 35603, 35897, 37409, 38867, 40241, 41177, 42239, 44543, 44753, 48491, 49499, 49757, 51383
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
A googol = 10^100.
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[5*10^4], And @@ PrimeQ[{#, 10^100 - #} ] &] (* Amiram Eldar, Dec 26 2019 *)
Select[Prime[Range[5500]], PrimeQ[10^100-#]&] (* Harvey P. Dale, Dec 21 2022 *)
|
|
PROG
|
(PARI) g(n) = forstep(x=1, n, 2, if(isprime(10^100-x)&isprime(x), print1(x", ")))
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn,fini
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|