A031087 Triangle T(n,k): write n in base 9, reverse order of digits.
0, 1, 2, 3, 4, 5, 6, 7, 8, 0, 1, 1, 1, 2, 1, 3, 1, 4, 1, 5, 1, 6, 1, 7, 1, 8, 1, 0, 2, 1, 2, 2, 2, 3, 2, 4, 2, 5, 2, 6, 2, 7, 2, 8, 2, 0, 3, 1, 3, 2, 3, 3, 3, 4, 3, 5, 3, 6, 3, 7, 3, 8, 3, 0, 4, 1, 4, 2, 4, 3, 4, 4, 4, 5, 4, 6, 4, 7, 4, 8, 4, 0, 5, 1, 5, 2, 5, 3, 5, 4, 5
Offset: 0
Links
- Reinhard Zumkeller, Rows n = 0..1000 of triangle, flattened
Crossrefs
Programs
-
Haskell
a031087 n k = a031087_row n !! (k-1) a031087_row n | n < 9 = [n] | otherwise = m : a031087_row n' where (n',m) = divMod n 9 a031087_tabf = map a031087_row [0..] -- Reinhard Zumkeller, Jul 07 2015
-
PARI
A031087(n, k=-1)=/*k<0&&error("Flattened sequence not yet implemented.")*/n\9^k%9 \\ Assuming that columns are numbered starting with k=0 as in A030308, A030567 and others. - M. F. Hasler, Jul 21 2013
Extensions
Initial 0 and better name by Philippe Deléham, Oct 20 2011