|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|