OFFSET
1,1
COMMENTS
a(1) starts sequence A023271.
EXAMPLE
a(5) = 7: 7+6(5) = 7+30 = 37 which is prime. 7+12(5) = 7+60 = 67 which is prime. 7+18(5) = 7+90 = 97 which is prime.
MATHEMATICA
Module[{nn=100, prs}, prs=Prime[Range[nn]]; Table[SelectFirst[prs, AllTrue[ #+6*Range[3]*n, PrimeQ]&], {n, nn/2}]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Dec 22 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray G. Opao, Apr 06 2004
STATUS
approved