OFFSET
1,1
COMMENTS
Conjecture: for every positive integer d, there exist infinitely many n for which a(n + 1) - a(n) + d; for d = 1, the first 4 such n are 40, 67, 76, 79.
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..1502
EXAMPLE
g(18) = 3, g(18-3) = g(15) = 5, and 18 is the 3rd positive integer having the defining property, so a(3) = 18.
MATHEMATICA
g[n_] := g[n] = FactorInteger[n][[-1, 1]]; t = {}; Do[If[g[n - g[n]] > g[n], AppendTo[t, n]], {n, 1, 500}]; t
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Dec 11 2013
STATUS
approved