

A317110


Numbers k such that the smallest digit of k is equal to the additive digital root of k (in base 10).


0



0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 19, 29, 39, 49, 59, 69, 79, 89, 91, 92, 93, 94, 95, 96, 97, 98, 99, 118, 127, 136, 145, 154, 163, 172, 181, 199, 217, 227, 236, 245, 254, 263, 271, 272, 299, 316, 326, 336, 345, 354, 361, 362, 363, 399, 415, 425, 435, 445, 451
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,3


COMMENTS



LINKS



MATHEMATICA

Select[Range@ 451, Min@ IntegerDigits@ # == FixedPoint[Total@ IntegerDigits@ # &, #] &] (* Michael De Vlieger, Jul 22 2018 *)


PROG

(Magma) [n : n in [1..10000]  (1+(n1) mod 9) eq &+[Min(Intseq(n))]]
(PARI) isok(n) = (n==0)  (vecmin(digits(n)) == (n1)%9+1); \\ Michel Marcus, Jul 23 2018


CROSSREFS



KEYWORD

nonn,base


AUTHOR



STATUS

approved



