|
|
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+(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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|