OFFSET
1,1
COMMENTS
10^11 < a(7) <= 8912510129422438. - Giovanni Resta, May 13 2016
MATHEMATICA
Select[Range[2, 2000], (p = First /@ FactorInteger[#]; #-#/p[[1]] == Sum[ Prime[i], {i, PrimePi@ p[[1]], PrimePi@ p[[-1]]}]) &] (* Giovanni Resta, May 13 2016 *)
PROG
(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
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Jason Earls, Sep 19 2002
EXTENSIONS
a(5)-a(6) from Giovanni Resta, May 13 2016
STATUS
approved