A127274 A doubly-fractal sequence. Erase the first (leftmost) 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, 12, 13, 24, 15, 36, 27, 48, 19, 511, 312, 613, 224, 715, 436, 827, 148, 919, 5511, 1312, 1613, 3224, 1715, 2436, 6827, 1148, 3919, 25511, 21312, 41613, 73224, 11715, 52436, 46827, 31148, 63919, 825511, 221312, 741613, 173224

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, FromDigits[Prepend[IntegerDigits[a[[-9]]], s[[n]]]]]; s = Join[s, IntegerDigits[a[[-1]]]], {n, 26}]; a (* Ivan Neretin, Sep 03 2015 *)

Crossrefs

Cf. A127199, A127204, A127303.

Sequence in context: A126968 A254785 A126969 * A324280 A324281 A129946

Adjacent sequences: A127271 A127272 A127273 * A127275 A127276 A127277

Keyword

base,nonn

Author

Eric Angelini, Mar 27 2007

Status

approved