OFFSET
1,5
COMMENTS
For this triangle, the algorithm that generates the Bernoulli numbers gives 3/2, then 1/6, 1/24, ... 1/n!
LINKS
Reinhard Zumkeller, Rows n = 1..125 of triangle, flattened
EXAMPLE
Triangle begins:
0
0 1
0 1 1
0 1 2 3
0 1 3 7 10
0 1 4 13 30 43
...
(the zeros are omitted).
PROG
(Haskell)
a102473 n k = a102473_tabl !! (n-1) !! (k-1)
a102473_row n = a102473_tabl !! (n-1)
a102473_tabl = [1] : [1, 1] : f [1] [1, 1] 2 where
f us vs x = ws : f vs ws (x + 1) where
ws = 1 : zipWith (+) ([0] ++ us) (map (* x) vs)
-- Reinhard Zumkeller, Sep 14 2014
CROSSREFS
KEYWORD
AUTHOR
Russell Walsmith (russw(AT)lycos.com), Jan 09 2005
EXTENSIONS
Entry revised by N. J. A. Sloane, Jul 09 2005
STATUS
approved