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

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))]];
(PARI) isok(n) = (n==0) || (vecmin(digits(n)) == (n-1)%9+1); \\ Michel Marcus, Jul 23 2018

Crossrefs

Cf. A010888, A054054, A107085 (with "largest" digit instead of "smallest").

Sequence in context: A075517 A248013 A088473 * A340254 A190876 A051885

Adjacent sequences: A317107 A317108 A317109 * A317111 A317112 A317113

Keyword

nonn,base

Author

Jaroslav Krizek, Jul 21 2018

Status

approved