A349742 Right border of A348575.

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

Author

Rodolfo Kurchan, Nov 28 2021

Keywords

• nonn
• base

Comments

Terms computed by Claudio Meller.

Crossrefs

Cf. A348575, A349547, A349548.

Programs

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 *)

Formula

a(n) = A349548(n) + A000217(A349547(n) - 1). - Jon E. Schoenfield, Nov 30 2021

Extensions

a(21)-a(26) from Jon E. Schoenfield, Nov 30 2021