A031298 Triangle T(n,k): write n in base 10, reverse order of digits.
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 1, 1, 1, 2, 1, 3, 1, 4, 1, 5, 1, 6, 1, 7, 1, 8, 1, 9, 1, 0, 2, 1, 2, 2, 2, 3, 2, 4, 2, 5, 2, 6, 2, 7, 2, 8, 2, 9, 2, 0, 3, 1, 3, 2, 3, 3, 3, 4, 3, 5, 3, 6, 3, 7, 3, 8, 3, 9, 3, 0, 4, 1, 4, 2, 4, 3, 4, 4, 4, 5, 4, 6, 4, 7, 4, 8, 4, 9, 4, 0
Offset: 0
Links
- Reinhard Zumkeller, Rows n = 0..2500 of triangle, flattened
Crossrefs
Programs
-
Haskell
a031298 n k = a031298_tabf !! n !! k a031298_row n = a031298_tabf !! n a031298_tabf = iterate succ [0] where succ [] = [1] succ (9:ds) = 0 : succ ds succ (d:ds) = (d + 1) : ds -- Reinhard Zumkeller, Jul 04 2012
-
Mathematica
Table[Reverse[IntegerDigits[n]],{n,0,50}]//Flatten (* Harvey P. Dale, Mar 07 2023 *)
-
PARI
T(n,k)=n\10^(k-1)%10 \\ M. F. Hasler, Jul 21 2013
Formula
Extensions
Initial 0 and better name by Philippe Deléham, Oct 20 2011
Edited by M. F. Hasler, Jul 21 2013
Comments