login
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
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
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
KEYWORD
nonn,base,tabf
AUTHOR
STATUS
approved