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,2

Links

Table of n, a(n) for n=1..91.

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

Formula

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

Example

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

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 *)

Crossrefs

Cf. A259433.

Sequence in context: A261424 A097462 A210944 * A329079 A306580 A320486

Adjacent sequences: A259431 A259432 A259433 * A259435 A259436 A259437

Keyword

nonn,base,tabf

Author

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

Status

approved