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