OFFSET
1,1
COMMENTS
All terms are divisible by 12. - Daniel Poveda Parrilla, Dec 12 2016
REFERENCES
R. K. Guy, Posting to Number Theory Mailing List, Nov 30 2016
LINKS
Antti Karttunen and Charles R Greathouse IV, Table of n, a(n) for n = 1..10000 (first 563 terms from Antti Karttunen)
MATHEMATICA
Select[Range[12, 25000, 12], AllTrue[{#+1, (#+2)/2, (#+3)/3}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 26 2020 *)
PROG
(PARI) list(lim)=my(v=List()); forprime(p=2, lim+1, if(p%6==1 && isprime(p\2+1) && isprime(p\3+1), listput(v, p-1))); Vec(v) \\ Charles R Greathouse IV, Dec 03 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 30 2016
STATUS
approved