A207506 Indices for which A207505(n) = 0.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 19, 20, 22, 28, 29, 31, 32, 34, 35, 43, 44, 46, 52, 53, 59, 62, 64, 65, 68, 74, 77, 79, 82, 83, 88, 100, 105, 119, 121, 147, 150, 154, 159, 161, 162, 164, 178, 183, 186, 187, 192, 193, 196, 198, 208, 209, 214, 219, 220, 231, 233, 238, 243, 244, 257, 269, 278, 280, 290, 294, 298, 305, 313, 314, 315, 318

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

Cf. A207505.

Sequence in context: A349484 A075905 A321767 * A343131 A119246 A280657

Adjacent sequences: A207503 A207504 A207505 * A207507 A207508 A207509

Keyword

nonn,base

Author

Eric Angelini and M. F. Hasler, Feb 18 2012

Status

approved