A347520 A053392 with duplicates removed.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 21, 22, 23, 24, 25, 26, 27, 28, 29, 210, 32, 33, 34, 35, 36, 37, 38, 39, 310, 311, 43, 44, 45, 46, 47, 48, 49, 410, 411, 412, 54, 55, 56, 57, 58, 59

Offset: 0

Author

Stefan Steinerberger, Sep 04 2021

Keywords

• nonn

Links

• Dana G. Korssjoen, Biyao Li, Stefan Steinerberger, Raghavendra Tripathi, and Ruimin Zhang, Finding structure in sequences of real numbers via graph theory: a problem list, arXiv:2012.04625 [math.CO], 2020.

Crossrefs

Cf. A053392.

Programs

Mathematica

a[n_] := Total /@ Transpose[{Most[id = IntegerDigits[n]], Rest[id]}] //
     IntegerDigits // Flatten // FromDigits; DeleteDuplicates[Table[a[n], {n, 0, 1000}]]

Python

# uses A053392
from collections import OrderedDict
def afiltern(terms):
    return list(OrderedDict.fromkeys(A053392(k) for k in range(terms)))
print(afiltern(179)) # Michael S. Branicky, Sep 04 2021