OFFSET
1,2
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..9165
EXAMPLE
MATHEMATICA
a[0] = 0; a[n_] := a[n] = 1 + a[n - DivisorSigma[0, n]]; Position[Table[k = 3 n; While[a@ k >= a@ n, k--]; k - n, {n, 200}], _Integer?Negative] // Flatten (* Michael De Vlieger, Oct 13 2015 *)
PROG
(PARI)
n=0; i=0; while(n < 124340, n++; if((A263077(n) < n), i++; write("b263079.txt", i, " ", n)));
\\ Other code as in A263077.
(Scheme, with Antti Karttunen's IntSeq-library)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 09 2015
STATUS
approved