A064977 n*10^3-1, n*10^3-3, n*10^3-7 and n*10^3-9 are all prime.

248, 302, 1094, 5462, 6716, 7274, 7478, 9542, 10193, 13217, 16199, 18560, 20714, 22205, 28856, 29843, 31949, 34457, 35387, 36767, 36977, 36983, 40958, 41393, 45167, 45347, 47273, 47468, 47567, 57101, 57515, 57773, 62156, 64331, 66704

Offset: 1

Author

Robert G. Wilson v, Oct 30 2001

Keywords

• easy
• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Programs

Mathematica

Select[Range[40000], PrimeQ[10^3# - 1] && PrimeQ[10^3# - 3] && PrimeQ[10^3# - 7] && PrimeQ[10^3# - 9] &]
Select[Range[70000],AllTrue[# 10^3-{1,3,7,9},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Aug 01 2017 *)