

A200721


Product of two nonconsecutive primes p and q that divides the sum of primes between p and q, exclusively.


0




OFFSET

1,1


COMMENTS

Prime p is approximately q/((2*log(q)1)*k), for k = 1, 1, 3, 307, 5041, 102378,..(quotients).
a(8) > 2*10^10. 3235398421447 is also a term.  Donovan Johnson, Nov 23 2011


LINKS

Table of n, a(n) for n=1..7.


EXAMPLE

51159 = 3*17053, (5+ ... +17047)/51159 = 307.


MATHEMATICA

ss[n_] := Module[{f = Transpose[FactorInteger[n]], p, q, s}, If[f[[2]] == {1, 1}, {p, q} = PrimePi[f[[1]]]; s = Total[Table[Prime[i], {i, p + 1, q  1}]]; s != 0 && Mod[s, n] == 0, False]]; Select[Range[2, 21000], ss] (* T. D. Noe, Nov 21 2011 *)


CROSSREFS

Cf. A055514, A055233, A086447, A086448, A001358.
Sequence in context: A330497 A037138 A091429 * A187463 A160311 A220955
Adjacent sequences: A200718 A200719 A200720 * A200722 A200723 A200724


KEYWORD

nonn


AUTHOR

Manuel Valdivia, Nov 21 2011


EXTENSIONS

a(7) from Donovan Johnson, Nov 23 2011


STATUS

approved



