A259433 - OEIS

%I #52 Aug 28 2015 06:16:58

%S 1,2,3,4,5,6,7,8,9,1,10,1,11,1,12,1,13,1,14,1,15,1,16,1,17,1,18,1,19,

%T 2,20,2,21,2,22,2,23,2,24,2,25,2,26,2,27,2,28,2,29,3,30,3,31,3,32,3,

%U 33,3,34,3,35,3,36,3,37,3,38,3,39,4,40,4,41,4,42

%N Irregular table read by rows: suppose n has d decimal digits; then T(n,j) for 1 <= j <= d is the number obtained by discarding the d-j least significant digits of n.

%H Matematico Fresnillense, <a href="http://matematicofresnillense.blogspot.mx/2015/06/formulas-para-extraer-digitos-de-un.html">Formulas para extraer digitos de un numero natural permutando</a>

%e Table begins:

%e 1;

%e 2;

%e 3;

%e 4;

%e 5;

%e 6;

%e 7;

%e 8;

%e 9;

%e 1, 10;

%e 1, 11;

%e 1, 12;

%e ...

%e 1, 10, 100;

%e 1, 10, 101;

%e ...

%t Flatten[Table[

%t   FromDigits[Take[IntegerDigits[r], j]], {r, 150}, {j,

%t Length[IntegerDigits[r]]}]] (* _Kellen Myers_, Aug 16 2015 *)

%Y Cf. A259434.

%K nonn,base,tabf

%O 1,2

%A _José de Jesús Camacho Medina_, Jun 26 2015