A079305 First near twin primes of order 6n: smallest p such that p, p+2, p+6n and p+6n+2 are primes.

5, 5, 11, 5, 11, 5, 17, 11, 5, 11, 5, 29, 29, 17, 11, 5, 5, 29, 197, 17, 11, 5, 11, 5, 29, 41, 17, 11, 5, 11, 5, 5, 29, 107, 17, 11, 5, 11, 5, 29, 101, 17, 11, 5, 11, 5, 29, 59, 17, 11, 5, 107, 29, 107, 17, 11, 5, 71, 107, 59, 461, 59, 41, 137, 29, 431, 17, 11, 5, 11, 5, 29, 179

Offset

1,1

Links

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

Mathematica

a[n_] := For[p=5, True, p+=6, If[PrimeQ[p]&&PrimeQ[p+2]&&PrimeQ[p+6n]&&PrimeQ[p+6n+2], Return[p]]]

Prog

(PARI) neartp(n) = { forstep(d=6, n, 6, forprime(x=3, n, if(isprime(x+2) & isprime(x+d) & isprime(x+d+2), print1(x", "); break ) ) ) }

Crossrefs

Sequence in context: A087705 A087033 A175902 * A247871 A204902 A151728

Adjacent sequences: A079302 A079303 A079304 * A079306 A079307 A079308

Keyword

easy,nonn

Author

Cino Hilliard, Feb 09 2003

Extensions

Edited by Dean Hickerson, Feb 11 2003

Status

approved