%I #16 Feb 09 2018 03:26:16
%S 277,331,577,643,811,937,1213,1621,2083,2953,4057,4567,4957,5881,6091,
%T 6637,7477,7717,8011,8677,10093,10333,10567,10861,11257,11503,11617,
%U 12601,13003,13063,14503,15073,15187,15271,15973,16033,16561,16573
%N Primes p such that little googol + p is prime.
%H Iain Fox, <a href="/A108255/b108255.txt">Table of n, a(n) for n = 1..10000</a>
%F A little googol = 2^100.
%p googol:=2^100: select(p-> isprime(p) and isprime(googol+p), [$1..10^5]); # _Muniru A Asiru_, Feb 06 2018
%t Select[Prime@ Range[2^11], PrimeQ[2^100 + #] &] (* _Michael De Vlieger_, Feb 05 2018 *)
%o (PARI) isok(p) = isprime(p) && isprime(2^100+p); \\ _Michel Marcus_, Feb 05 2018
%o (GAP) googol:= 2^100;; Filtered([1..10^6], p->IsPrime(p) and IsPrime(googol+p)); # _Muniru A Asiru_, Feb 06 2018
%K easy,nonn
%O 1,1
%A _Cino Hilliard_, Jun 18 2005
|