login
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
OFFSET
1,3
COMMENTS
Numbers k such that A054054(k) = A010888(k).
LINKS
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
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Jul 21 2018
STATUS
approved