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

2, 695, 797, 1193, 2015, 2480, 3005, 3020, 3464, 3887, 6338, 6575, 6611, 6803, 7394, 7682, 7958, 9074, 10436, 10940, 11468, 12284, 13226, 15773, 17495, 18374, 19799, 20792, 22028, 23036, 25766, 26795, 27317, 27593, 28793, 29276, 29528, 30635

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Sequence in context: A106301 A127623 A115474 * A062665 A256669 A361451

Adjacent sequences: A064973 A064974 A064975 * A064977 A064978 A064979

Keyword

easy,nonn

Author

Robert G. Wilson v, Oct 30 2001

Status

approved