OFFSET
1,2
COMMENTS
A264893(a(n)) = 0.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..500
MATHEMATICA
Position[Differences@ Fold[Append[#1, 1 + #1[[#2 - DivisorSigma[0, #2] + 1]] ] &, {0}, Range[10^4]], 0][[All, 1]] - 1 (* Michael De Vlieger, Dec 09 2017 *)
PROG
(Haskell)
a264898 n = a264898_list !! (n-1)
a264898_list = filter ((== 0) . a264893) [0..]
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Nov 27 2015
STATUS
approved