A064974 Numbers k such that k-1, k-3, k-7 and k-9 are all prime.

14, 20, 110, 200, 830, 1490, 1880, 2090, 3260, 3470, 5660, 9440, 13010, 15650, 15740, 16070, 18050, 18920, 19430, 21020, 22280, 25310, 31730, 34850, 43790, 51350, 55340, 62990, 67220, 69500, 72230, 77270, 79700, 81050, 82730, 88820

Offset: 1

Author

Robert G. Wilson v, Oct 30 2001

Keywords

• easy
• nonn

Links

• Harry J. Smith, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A090258.

Programs

Mathematica

Select[Range[10^5], PrimeQ[ # - 1] && PrimeQ[ # - 3] && PrimeQ[ # - 7] && PrimeQ[ # - 9] &]

PARI

{ n=0; for (m=1, 10^9, if(isprime(m - 1) && isprime(m - 3) && isprime(m - 7) && isprime(m - 9), write("b064974.txt", n++, " ", m); if (n==1000, return)) ) } \\ Harry J. Smith, Oct 02 2009