login
A349742
Right border of A348575.
1
37, 388, 4969, 6695998, 53, 14, 566, 38798, 899846, 299769899, 888, 30, 39, 678, 5686899, 459999997, 57969598, 3978899879, 48893979999887, 6999988788, 5398799997, 586899989985, 599984979886989999, 698999999779, 576999897988978, 6777997889978989
OFFSET
1,1
COMMENTS
Terms computed by Claudio Meller.
FORMULA
a(n) = A349548(n) + A000217(A349547(n) - 1). - Jon E. Schoenfield, Nov 30 2021
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