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,1

Comments

Terms computed by Claudio Meller.

Links

Table of n, a(n) for n=1..26.

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

Cf. A348575, A349547, A349548.

Sequence in context: A124337 A027944 A283629 * A264626 A201789 A115926

Adjacent sequences: A349739 A349740 A349741 * A349743 A349744 A349745

Keyword

nonn,base

Author

Rodolfo Kurchan, Nov 28 2021

Extensions

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

Status

approved