OFFSET
1,2
COMMENTS
LINKS
Reinhard Zumkeller, Rows n = 1..125 of table, flattened
PROG
(PARI) for(i=1, 9, for(j=1, i, for(k=i-j+1, i, print1(k)); print1(", ")))
(Haskell)
import Data.List (inits, tails)
a224841 n k = a224841_tabl !! (n-1) !! (k-1)
a224841_row n = a224841_tabl !! (n-1)
a224841_tabl = map
(reverse . map (read . concatMap show) . init . tails) $
tail $ inits a007376_list :: [[Integer]]
-- Reinhard Zumkeller, Nov 11 2013
CROSSREFS
KEYWORD
AUTHOR
M. F. Hasler, Jul 22 2013
STATUS
approved