A349547 a(n) is the length of the n-th row of A348575.

9, 28, 100, 3660, 2, 4, 34, 279, 1342, 24486, 41, 4, 9, 37, 3373, 30332, 10768, 89207, 9888780, 118322, 103912, 1083421, 1095431404, 1182371, 33970573, 116430219, 3152744167, 24330557, 27560841783

Offset: 1

Author

Rodolfo Kurchan, Nov 21 2021

Keywords

• nonn
• base
• hard
• more

Comments

Terms computed by Claudio Meller.

Examples

			When A348575 is written as an irregular triangle, the first three rows are:
   1, ...,   37:   9 terms
  10, ...,  388:  28 terms
  19, ..., 4969: 100 terms
The lengths of the rows are [9, 28, 100] respectively, the same as the first three terms of this sequence.
a(30) exceeds 4242640687120 (perhaps by orders of magnitude); see A349548. - _Jon E. Schoenfield_, Nov 29 2021
		

Crossrefs

Cf. A348575, 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, i]; i = 0]; i++]; sq]; seq[15] (* Amiram Eldar, Nov 23 2021 *)

Extensions

a(23)-a(29) from Jon E. Schoenfield, Nov 30 2021