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

Links

Table of n, a(n) for n=0..55.

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.

Mathematica

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

Prog

(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

Crossrefs

Cf. A053392.

Sequence in context: A051107 A338265 A110303 * A180493 A346132 A320249

Adjacent sequences: A347517 A347518 A347519 * A347521 A347522 A347523

Keyword

nonn

Author

Stefan Steinerberger, Sep 04 2021

Status

approved