OFFSET
1,3
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..81
MATHEMATICA
Join[{0}, Select[FromDigits/@Flatten[Table[PadRight[{}, n, d], {n, 23}, {d, 9}], 1], Length[ Union[IntegerDigits[Total[IntegerDigits[#]]]]]==1&]] (* Harvey P. Dale, Feb 03 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Nov 26 2011
STATUS
approved