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,1

Links

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

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

Crossrefs

Sequence in context: A223546 A187398 A065146 * A068400 A240967 A230856

Adjacent sequences: A064974 A064975 A064976 * A064978 A064979 A064980

Keyword

easy,nonn

Author

Robert G. Wilson v, Oct 30 2001

Status

approved