A098064 Least k such that k*prime(n)#/6 - 6 and k*prime(n)#/6 + 6 are consecutive primes with gap of 12 for n > 2.

41, 43, 19, 25, 29, 119, 35, 73, 83, 337, 193, 71, 137, 7, 515, 731, 53, 211, 353, 247, 1415, 65, 223, 77, 481, 191, 331, 367, 605, 769, 77, 1751, 221, 617, 713, 683, 1325, 233, 187, 259, 641, 235, 545, 2761, 1993, 71, 851, 527, 1159, 757, 239, 1817, 3203

Offset

3,1

Links

Table of n, a(n) for n=3..55.

Example

43*prime(4)#/6-6 = 43*2*3*5*7/6-6 = 1499, 43*prime(4)#/6+6 = 43*2*3*5*7/6+6 = 1511, 1499 and 1511 are consecutive primes with gap of 12, so a(4) = 43.

Mathematica

a[n_] := Module[{k = 1, p = Product[Prime[i], {i, 1, n}]}, While[!(PrimeQ[k*p/6-6] && NextPrime[k*p/6-6] == k*p/6+6), k++]; k]; Array[a, 60, 3] (* Amiram Eldar, Jul 17 2021 *)

Crossrefs

Cf. A002110.

Cf. A097439, A097440, A097441, A097570.

Sequence in context: A077680 A283598 A041839 * A073921 A118124 A054057

Adjacent sequences: A098061 A098062 A098063 * A098065 A098066 A098067

Keyword

nonn

Author

Pierre CAMI, Sep 11 2004

Status

approved