A121709 Numerator of Sum/Product of first n Lucas numbers A000032[n].

1, 4, 2, 5, 13, 1, 73, 5, 7, 1, 37, 5, 1361, 1, 223, 25, 4673, 1, 24473, 25, 16019, 1, 83879, 65, 62743, 1, 20533, 65, 1505173, 1, 7881193, 85, 5158309, 1, 27009259, 425, 1400221, 1, 1446283, 2225, 69237359, 1, 51790217, 445, 1660959719, 1, 8696897999

Offset

1,2

Comments

5 divides a(4k). a(1) = 1 and a(4k+2) = 1 for k>0.

Links

Table of n, a(n) for n=1..47.

Formula

a(n) = Numerator[Sum[Lucas[k],{k,1,n}]/Product[Lucas[k],{k,1,n}]], where Lucas[k] = Fibonacci[k-1] + Fibonacci[k+1].

Mathematica

Table[Numerator[Sum[Fibonacci[k-1]+Fibonacci[k+1], {k, 1, n}]/Product[Fibonacci[k-1]+Fibonacci[k+1], {k, 1, n}]], {n, 1, 100}]

Crossrefs

Cf. A000045, A000032, A079451, A001578, A096362, A058036, A121708, A090585.

Sequence in context: A277390 A200608 A163358 * A283747 A180109 A019170

Adjacent sequences: A121706 A121707 A121708 * A121710 A121711 A121712

Keyword

frac,nonn

Author

Alexander Adamchuk, Aug 16 2006

Status

approved