

A127274


A doublyfractal 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.


4



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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



