|
|
A163388
|
|
Primes p such that 6*(p-6) is an average of a twin prime pair.
|
|
3
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Primes of the form 6+A014574(k)/6, any k.
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|