A163388 Primes p such that 6*(p-6) is an average of a twin prime pair.

7, 11, 13, 23, 29, 31, 53, 83, 101, 109, 113, 149, 181, 211, 223, 293, 331, 353, 379, 431, 449, 461, 571, 599, 643, 659, 661, 673, 709, 743, 919, 1021, 1039, 1051, 1123, 1151, 1231, 1249, 1319, 1429, 1439, 1483, 1553, 1579, 1583, 1619, 1723, 1931, 2069, 2143

Offset

1,1

Comments

Primes of the form 6+A014574(k)/6, any k.

Links

G. C. Greubel, Table of n, a(n) for n = 1..1100

Example

For p=7, 6*(7-6)=6 = A014574(2), which puts 7 into the sequence.
For p=11, 6*(11-6)=30 = A014574(5), which puts p=11 into the sequence.

Mathematica

f1[n_]:=If[PrimeQ[n-1]&&PrimeQ[n+1], True, False]; f2[n_]:=If[f1[n]&&PrimeQ[n/ 6+6], True, False]; lst={}; Do[If[f2[n], AppendTo[lst, n/6+6]], {n, 8!}]; lst

Crossrefs

Cf. A163385, A163386, A163387

Sequence in context: A027901 A129213 A110966 * A297176 A155760 A058500

Adjacent sequences: A163385 A163386 A163387 * A163389 A163390 A163391

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jul 25 2009

Extensions

Definition rephrased, reference to A014574 added by R. J. Mathar, Aug 02 2009

Status

approved