OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
The prime 7 is in the sequence because 7+16 = 23, 7+64 = 71 and 7+256 = 263 are all primes.
The prime 37 is in the sequence because 37+16 = 53, 37+64 = 101 and 37+256 = 293 are all primes.
MATHEMATICA
Select[Prime[Range[10000]], PrimeQ[# + 2^4] && PrimeQ[# + 2^6] && PrimeQ[# + 2^8]&] (* Jean-François Alcover, Jul 12 2016 *)
With[{c=2^Range[4, 8, 2]}, Select[Prime[Range[4200]], AllTrue[#+c, PrimeQ]&]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, May 21 2017 *)
PROG
(PARI) is(n)=n%6==1 && isprime(n+16) && isprime(n+64) && isprime(n+256) && isprime(n) \\ Charles R Greathouse IV, Jul 12 2016
(Perl) use ntheory ":all"; say for sieve_prime_cluster(2, 1e6, 16, 64, 256); # Dana Jacobsen, Jul 13 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Debapriyay Mukhopadhyay, Jul 12 2016
STATUS
approved