A049495 a(n) and a(n)+4^k are primes at least for k=1,2,3,4,5.
7, 37, 163, 9157, 9277, 15667, 53593, 56893, 111577, 135193, 137383, 142543, 305407, 467527, 470647, 476023, 480043, 527377, 607093, 671353, 761377, 817147, 885943, 891643, 904663, 1080073, 1116637, 1140847, 1172803, 1233523
Offset: 1
Keywords
Examples
7, 7+4=11, 7+16=23, 7+64=71, 7+256=263, 7+1024=1031 are all primes; the smallest such a sextuple is {7,11,23,71,263,1031}.
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Prime@ Range[10^5], Function[p, AllTrue[Range@ 5, PrimeQ[p + 4^#] &]]] (* Michael De Vlieger, Aug 09 2017 *)
-
PARI
isok(n) = isprime(n) && isprime(n+4) && isprime(n+16) && isprime(n+64) && isprime(n+256) && isprime(n+1024); \\ Michel Marcus, Dec 22 2013