OFFSET
1,1
COMMENTS
Terms computed by Claudio Meller.
EXAMPLE
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
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 *)
CROSSREFS
KEYWORD
nonn,base,hard,more
AUTHOR
Rodolfo Kurchan, Nov 21 2021
EXTENSIONS
a(23)-a(29) from Jon E. Schoenfield, Nov 30 2021
STATUS
approved