OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..124340
FORMULA
a(n) = A263077(n)-n.
EXAMPLE
MATHEMATICA
a[0] = 0; a[n_] := a[n] = 1 + a[n - DivisorSigma[0, n]]; Table[k = 3 n;
While[a@ k >= a@ n, k--]; k - n, {n, 102}] (* Michael De Vlieger, Oct 13 2015 *)
PROG
CROSSREFS
KEYWORD
sign
AUTHOR
Antti Karttunen, Oct 09 2015
STATUS
approved