A259434 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 most significant digits of n.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 0, 11, 1, 12, 2, 13, 3, 14, 4, 15, 5, 16, 6, 17, 7, 18, 8, 19, 9, 20, 0, 21, 1, 22, 2, 23, 3, 24, 4, 25, 5, 26, 6, 27, 7, 28, 8, 29, 9, 30, 0, 31, 1, 32, 2, 33, 3, 34, 4, 35, 5, 36, 6, 37, 7, 38, 8, 39, 9, 40, 0, 41, 1, 42, 2, 43, 3, 44, 4, 45, 5, 46, 6, 47, 7, 48, 8, 49, 9, 50, 0

Offset: 1

Author

José de Jesús Camacho Medina, Jun 26 2015

Keywords

• nonn
• base
• tabf

Examples

			1298 results in {1298, 298, 98, 8}.
Table begins:
1;
2;
3;
4;
5;
6;
7;
8;
9;
10, 0;
11, 1;
12, 2;
...
100, 0, 0;
101, 1, 1;
...
		

Links

• Matematico Fresnillense, Formulas para extraer digitos de un numero natural permutando

Crossrefs

Cf. A259433.

Programs

Mathematica

Table[Floor[Mod[n, (10^(Floor[Log[10, n] + 1] - x))]], {n, 1, 30}, {x, 0, Floor[Log[10, n]]}]
f[n_, x_] := Floor[ Mod[ n, (10^(Floor[ Log[10, n] + 1] - x))]]; Table[ f[n, x], {n, 50}, {x, 0, Floor[ Log[10, n]]}] // Flatten (* Robert G. Wilson v, Jul 28 2015 *)

Formula

row(n) = floor(n mod (10^(floor(log_10(n)) + 1 - x))), for n>=1 and x=0..floor(log_10(n)).