OFFSET
1,1
MATHEMATICA
Select[Prime[Range[20000000]], PrimeQ[(#-1)/2]&&PrimeQ[(#-2)/3]&&PrimeQ[(#-3)/4]&&PrimeQ[(#-4)/5]&&PrimeQ[(#-5)/6]&]
Select[Prime[Range[2254*10^4]], AllTrue[(#-Range[5])/Range[2, 6], PrimeQ]&] (* Harvey P. Dale, May 29 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 17 2010
EXTENSIONS
Edited, terms checked and two terms added by Klaus Brockhaus, Nov 17 2010
STATUS
approved