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.

A074195 Sum of the primes from smallest prime factor of n to the largest prime factor of n = largest difference between consecutive divisors of n (ordered by size).

This page as a plain text file.
%I A074195 #13 Dec 15 2017 17:36:01
%S A074195 4,20,1278,1339,11074308238,19096347067
%N A074195 Sum of the primes from smallest prime factor of n to the largest prime factor of n = largest difference between consecutive divisors of n (ordered by size).
%C A074195 10^11 < a(7) <= 8912510129422438. - _Giovanni Resta_, May 13 2016
%t A074195 Select[Range[2, 2000], (p = First /@ FactorInteger[#]; #-#/p[[1]] == Sum[ Prime[i], {i, PrimePi@ p[[1]], PrimePi@ p[[-1]]}]) &] (* _Giovanni Resta_, May 13 2016 *)
%o A074195 (PARI) isok(n) = {pf = factor(n)[,1]; my(pmin = vecmin(pf)); s = 0; forprime(p = pmin, vecmax(pf), s += p); s == n - n/pmin;} \\ _Michel Marcus_, Feb 03 2014
%Y A074195 Cf. A060681, A074036, A055233, A055514.
%K A074195 more,nonn
%O A074195 1,1
%A A074195 _Jason Earls_, Sep 19 2002
%E A074195 a(5)-a(6) from _Giovanni Resta_, May 13 2016