OFFSET
0,3
COMMENTS
The link gives all terms less than 10^4, computed by Hans Havermann.
LINKS
Robert Price, Table of n, a(n) for n = 0..2167
H. Havermann, in reply to E. Angelini, Re: Subtracting digits, hitting zero, seqfan mailing list, Feb 16 2012
EXAMPLE
See A207505 for examples.
MATHEMATICA
f[n_] := Module[{x = n, l}, l = IntegerDigits[x];
While[x > 0, x = x - First[l];
l = Join[Rest[l], IntegerDigits[x]]; ]; Abs[ x]] ;
Select[Range[0, 10000], f[#] == 0 &] (* Robert Price, Apr 04 2020 *)
PROG
(PARI) for(i=0, 999, 207505(i)|print1(i", "))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Eric Angelini and M. F. Hasler, Feb 18 2012
STATUS
approved