A181680 Primes p such that (p-1)/2, (p-2)/3, (p-3)/4, (p-4)/5 and (p-5)/6 are prime numbers.

7224839, 9339119, 10780559, 42464519, 45652319, 53464319, 62198639, 69899759, 94159799, 121136399, 130777919, 158608799, 191010959, 285785639, 288308159, 322461719, 353256119, 402411239, 423803519

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Nov 17 2010

Keywords

• nonn

Crossrefs

Cf. A093554.

Programs

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 *)

Extensions

Edited, terms checked and two terms added by Klaus Brockhaus, Nov 17 2010