|
Search: id:A099349
|
|
|
| A099349 |
|
Primes p[i] such that p[i]+p[i+1]=(q+q+2)/2=q+1, where {q,q+2} are twin primes. |
|
+0
18
|
|
| 5, 7, 13, 19, 29, 67, 97, 113, 229, 293, 307, 401, 409, 439, 613, 643, 659, 709, 739, 809, 829, 859, 937, 1039, 1051, 1327, 1483, 1663, 1693, 1879, 1999, 2039, 2113, 2129, 2239, 2251, 2549, 2633, 2707, 2749, 2753, 2819, 3041, 3089, 3137, 3221, 3271, 3329
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
FORMULA
|
Solutions to x=p[i] such that p[i]+p[i+1]=q+1, where q is the lesser term of a twin ptime pair.
|
|
EXAMPLE
|
19+23=42 consecutive-prime-sum and also (41+43)/2 arithmetical mean
of twin primes.
|
|
MATHEMATICA
|
<< NumberTheory`NumberTheoryFunctions`ta={{0}}; Do[s = Prime[n] + Prime[n + 1]; s1 = NextPrime[s]; s2 = PreviousPrime[s]; If[Equal[s1 - s2, 2], Print[Prime[n]]; ta = Append[ta, Prime[n]]], {n, 1, 10000}]; ta = Delete[ta, 1]
|
|
CROSSREFS
|
Sequence in context: A164567 A045443 A153116 this_sequence A167464 A106986 A006512
Adjacent sequences: A099346 A099347 A099348 this_sequence A099350 A099351 A099352
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Nov 17 2004
|
|
|
Search completed in 0.002 seconds
|
