cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A200721 #15 Jul 18 2019 05:09:17
%S A200721 26,1133,20309,51159,3246905,28673661,5201685791
%N A200721 Product of two nonconsecutive primes p and q that divides the sum of primes between p and q, exclusively.
%C A200721 Prime p is approximately q/((2*log(q)-1)*k), for k = 1, 1, 3, 307, 5041, 102378,..(quotients).
%C A200721 a(8) > 2*10^10. 3235398421447 is also a term. - _Donovan Johnson_, Nov 23 2011
%e A200721 51159 = 3*17053, (5+ ... +17047)/51159 = 307.
%t A200721 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 *)
%Y A200721 Cf. A055514, A055233, A086447, A086448, A001358.
%K A200721 nonn
%O A200721 1,1
%A A200721 _Manuel Valdivia_, Nov 21 2011
%E A200721 a(7) from _Donovan Johnson_, Nov 23 2011