OFFSET
1,1
LINKS
Dana Jacobsen, Table of n, a(n) for n = 1..10000
EXAMPLE
11 is in the sequence because 11+8 = 19, 11+32 = 43 and 11+128 = 139 are all primes.
29 is in the sequence because 29+8 = 37, 29+32 = 61 and 29+128 = 157 are all primes.
MATHEMATICA
Select[Prime@ Range@ 3450, Function[k, Times @@ Boole@ PrimeQ@ Map[k + 2^# &, {3, 5, 7}] == 1]] (* Michael De Vlieger, Aug 10 2016 *)
Select[Prime[Range[4000]], AllTrue[#+{8, 32, 128}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Apr 26 2018 *)
PROG
(Perl) use ntheory ":all"; say for sieve_prime_cluster(2, 1e6, 2**3, 2**5, 2**7); # Dana Jacobsen, Sep 29 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Debapriyay Mukhopadhyay, Jul 29 2016
STATUS
approved