OFFSET
1,1
LINKS
Ely Golden, Table of n, a(n) for n = 1..1001
MATHEMATICA
tot[n_] := Select[Range[n], CoprimeQ[#, n] &]; m = 18; t = tot[m]; aQ[n_] := AllTrue[m * n + t, PrimeQ]; Select[Range[10^6], aQ] (* Amiram Eldar, Aug 22 2019 *)
PROG
(SageMath)
x = 1
for i in range(5000000):
if (18*i+1 in Primes()
and 18*i+5 in Primes()
and 18*i+7 in Primes()
and 18*i+11 in Primes()
and 18*i+13 in Primes()
and 18*i+17 in Primes()):
print(str(x)+" "+str(i))
x += 1
CROSSREFS
KEYWORD
nonn
AUTHOR
Ely Golden, Aug 21 2019
STATUS
approved