OFFSET
1,1
COMMENTS
A subsequence of A237189.
All terms are divisible by 30, and b(n)=a(n)/30 begins: 361, 847, 868, 2958, 5530, 6552, 7035, 7480, 7676, 8257, 8950, 8964, 12516, 12583, 14011, ...
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[30*Range[52000], AllTrue[#*Range[5]+1, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Dec 31 2017 *)
PROG
(Python)
import sympy
from sympy import isprime
for n in range(2000000):
if isprime(n+1) and isprime(2*n+1) and isprime(3*n+1) and isprime(4*n+1) and isprime(5*n+1):
print str(n)+', ',
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Feb 04 2014
STATUS
approved