OFFSET
0,7
LINKS
Reinhard Zumkeller, Rows n = 0..120 of triangle, flattened
FORMULA
G.f.: x*(1+y-x*y)/((1-x-x^2)*(1-x*y-x^2*y^2)). [U coordinates]
EXAMPLE
0; 1,1; 1,1,1; 2,2,2,2; 3,3,3,3,3; 5,5,5,5,5,5; ...
MATHEMATICA
Table[Table[Fibonacci[n], {n+1}], {n, 0, 12}]//Flatten (* Harvey P. Dale, May 07 2017 *)
PROG
(Haskell)
a108037 n k = a108037_tabl !! n !! k
a108037_row n = a108037_tabl !! n
a108037_tabl = zipWith replicate [1..] a000045_list
-- Reinhard Zumkeller, Oct 07 2012
(Python)
from math import isqrt
from sympy import fibonacci
def A108037(n): return int(fibonacci((m:=isqrt(k:=n+1<<1))-(k<=m*(m+1)))) # Chai Wah Wu, Nov 07 2024
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
N. J. A. Sloane, Jun 01 2005
STATUS
approved