OFFSET
1,1
COMMENTS
Terms computed by Claudio Meller.
FORMULA
MATHEMATICA
seq[len_] := Module[{s = {1}, sq = {}, i = 1, d}, While[Length[sq] < len, If[MemberQ[s, (d = Plus @@ IntegerDigits[s[[-1]]])], AppendTo[s, s[[-1]] + i], AppendTo[s, d]; AppendTo[sq, s[[-2]]]; i = 0]; i++]; sq]; seq[15] (* Amiram Eldar, Nov 30 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Rodolfo Kurchan, Nov 28 2021
EXTENSIONS
a(21)-a(26) from Jon E. Schoenfield, Nov 30 2021
STATUS
approved