

A127204


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


4



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
(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, 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: A076641 A076643 A326402 * A331626 A102235 A107272
Adjacent sequences: A127201 A127202 A127203 * A127205 A127206 A127207


KEYWORD

base,nonn


AUTHOR

Eric Angelini, Mar 27 2007


STATUS

approved



