|
%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
|
