OFFSET
1,1
LINKS
Iain Fox, Table of n, a(n) for n = 1..10000
FORMULA
A little googol = 2^100.
MAPLE
googol:=2^100: select(p-> isprime(p) and isprime(googol+p), [$1..10^5]); # Muniru A Asiru, Feb 06 2018
MATHEMATICA
Select[Prime@ Range[2^11], PrimeQ[2^100 + #] &] (* Michael De Vlieger, Feb 05 2018 *)
PROG
(PARI) isok(p) = isprime(p) && isprime(2^100+p); \\ Michel Marcus, Feb 05 2018
(GAP) googol:= 2^100;; Filtered([1..10^6], p->IsPrime(p) and IsPrime(googol+p)); # Muniru A Asiru, Feb 06 2018
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Jun 18 2005
STATUS
approved