A127204 A monotonic doubly-fractal sequence. Erase the last (rightmost) digit of every integer: what is left is the sequence itself. The erased digits, one by one, form also the sequence itself.

1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 21, 32, 41, 53, 62, 74, 81, 95, 113, 216, 322, 417, 534, 628, 741, 819, 955, 1131, 2161, 3223, 4172, 5341, 6286, 7413, 8192, 9552, 11314, 21611, 32237, 41725, 53413, 62864, 74136, 81922, 95528, 113147, 216114, 322371, 417258

Offset

1,2

Links

Ivan Neretin, Table of n, a(n) for n = 1..500

Mathematica

a = Append[Range@9, 11]; s = {1}; Do[AppendTo[a, 10*a[[-9]] + s[[n]]]; s = Join[s, IntegerDigits[a[[-1]]]], {n, 39}]; a (* Ivan Neretin, Sep 03 2015 *)

Crossrefs

Cf. A127199, A127274, A127303.

Sequence in context: A076643 A352463 A326402 * A331626 A102235 A107272

Adjacent sequences: A127201 A127202 A127203 * A127205 A127206 A127207

Keyword

base,nonn

Author

Eric Angelini, Mar 27 2007

Status

approved