|
|
A108256
|
|
Primes p such that little googol - p is prime.
|
|
1
|
|
|
479, 1187, 1289, 2609, 2699, 2999, 3347, 3923, 3989, 4289, 4583, 5009, 5309, 5417, 5807, 6047, 6053, 6257, 6599, 6779, 7103, 7253, 7727, 9029, 10433, 10667, 11093, 11549, 11579, 12377, 13007, 14243, 14867, 15287, 15683, 16187, 17519, 17669
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
A little googol = 2^100.
|
|
MATHEMATICA
|
With[{lg=2^100}, Select[Prime[Range[2100]], PrimeQ[lg-#]&]] (* Harvey P. Dale, Mar 08 2014 *)
|
|
PROG
|
(PARI) g(n) = forstep(x=1, n, 2, if(isprime(2^100-x)&isprime(x), print1(x", ")))
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|