cp's OEIS Frontend

A259433 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.

%I A259433 #52 Aug 28 2015 06:16:58
%S A259433 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 A259433 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 A259433 33,3,34,3,35,3,36,3,37,3,38,3,39,4,40,4,41,4,42
%N A259433 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 A259433 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 A259433 Table begins:
%e A259433 1;
%e A259433 2;
%e A259433 3;
%e A259433 4;
%e A259433 5;
%e A259433 6;
%e A259433 7;
%e A259433 8;
%e A259433 9;
%e A259433 1, 10;
%e A259433 1, 11;
%e A259433 1, 12;
%e A259433 ...
%e A259433 1, 10, 100;
%e A259433 1, 10, 101;
%e A259433 ...
%t A259433 Flatten[Table[
%t A259433   FromDigits[Take[IntegerDigits[r], j]], {r, 150}, {j,
%t A259433 Length[IntegerDigits[r]]}]] (* _Kellen Myers_, Aug 16 2015 *)
%Y A259433 Cf. A259434.
%K A259433 nonn,base,tabf
%O A259433 1,2
%A A259433 _José de Jesús Camacho Medina_, Jun 26 2015