OFFSET
1,6
COMMENTS
Differs from A064918 at n = 25, 48, 51, 69, 75, 81, 85, 94, 95, 99, 100, 111, 115, 121, ...
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..20669
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537
MATHEMATICA
{0}~Join~Array[-2 + Length@ NestWhileList[1 + (# - Divisors[#][[-2]]) &, #, UnsameQ, All] &, 104, 2] (* Michael De Vlieger, Jan 04 2019 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 04 2019
STATUS
approved