A317110 - OEIS

A317110

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

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

Numbers k such that A054054(k) = A010888(k).

LINKS

Table of n, a(n) for n=1..59.

Eric Weisstein's World of Mathematics, Digital Root

MATHEMATICA

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

PROG

(Magma) [n : n in [1..10000] | (1+(n-1) mod 9) eq &+[Min(Intseq(n))]];