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

Author

Vladimir Joseph Stephan Orlovsky, Jul 25 2009

Keywords

• nonn

Comments

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

Examples

			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.
		

Links

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

Crossrefs

Cf. A014574, A163385, A163386, A163387.

Programs

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

Extensions

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