|
|
A207506
|
|
Indices for which A207505(n) = 0.
|
|
3
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|