OFFSET
1,2
COMMENTS
a(p+1) = a(p) + 1 for primes p.
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
FORMULA
a(n+1) = a(n) + n + 2 - A101504(a(n)+1), a(1) = 1.
MATHEMATICA
a = {0}; mx = last = 1; Do[If[last <= mx, last++, mx = last; last = Plus @@ Divisors[last][[{-2, 2}]]; AppendTo[a, n]], {n, 750}]; a (* Ivan Neretin, Aug 25 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Dec 05 2004
STATUS
approved