A064967 100000000n+1, 100000000n+3, 100000000n+7, 100000000n+9 are all primes.

27346, 62101, 149650, 168130, 207670, 230830, 242443, 249439, 257227, 278521, 300028, 329389, 342700, 401980, 436315, 452281, 456985, 523972, 528946, 530671, 535918, 612595, 642832, 657151, 732799, 733783, 746848, 758857, 857662, 866608

Offset

1,1

Links

Table of n, a(n) for n=1..30.

Mathematica

Select[Range[10^6], PrimeQ[10^8# + 1] && PrimeQ[10^8# + 3] && PrimeQ[10^8# + 7] && PrimeQ[10^8# + 9] &]
Select[Range[900000], AllTrue[100000000#+{1, 3, 7, 9}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, May 14 2016 *)

Crossrefs

Cf. A007811 and A064687.

Sequence in context: A109481 A328214 A234686 * A168215 A224626 A237296

Adjacent sequences: A064964 A064965 A064966 * A064968 A064969 A064970

Keyword

nonn

Author

Robert G. Wilson v, Oct 29 2001

Status

approved