OFFSET
1,8
COMMENTS
Note that prime(k), prime(m), 2*prime(m) - prime(k) form a three-term arithmetic progression. It is known that there are infinitely many nontrivial three-term arithmetic progressions whose terms are all prime.
Conjecture: (i) a(n) > 0 for all n > 4, and a(n) = 1 only for n = 5, 6, 7, 9, 11, 14, 17, 21, 34, 43.
(ii) Any integer n > 4, can be written as k + m (0 < k < m) with 2*prime(m) + prime(k) prime.
LINKS
Zhi-Wei Sun, Table of n, a(n) for n = 1..10000
B. Green and T. Tao, The primes contain arbitrarily long arithmetic progressions, Annals of Math. 167(2008), 481-547.
J. G. van der Corput, Über Summen von Primzahlen und Primzahlquadraten, Math. Ann. 116 (1939), 1-50.
EXAMPLE
a(17) = 1 since 2*prime(10) - prime(7) = 2*29 - 17 = 41 is prime.
a(21) = 1 since 2*prime(19) - prime(2) = 2*67 - 3 = 131 is prime.
a(34) = 1 since 2*prime(24) - prime(10) = 2*89 - 29 = 149 is prime.
a(43) = 1 since 2*prime(28) - prime(15) = 2*107 - 47 = 167 is prime.
MATHEMATICA
a[n_]:=Sum[If[PrimeQ[2*Prime[n-k]-Prime[k]], 1, 0], {k, 1, (n-1)/2}]
Table[a[n], {n, 1, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zhi-Wei Sun, Nov 24 2013
STATUS
approved