login
A112366
Sum_{k=1..n} k*a(k) is a Fibonacci number. a(n) = A112365(n)/n.
1
1, 1, 6, 17, 11, 7704, 304563, 20425229, 15490920256, 1702809631512, 190392490709135, 1016504077503658224, 114486182753213400503, 346841889771425011779, 11879701253335083341210, 37326390852372133364819
OFFSET
1,3
MATHEMATICA
s = 0; Do[f = 0; While[Fibonacci[f] <= s || Mod[Fibonacci[f] - s, n] > 0, f++ ]; k = (Fibonacci[f] - s)/n; Print[k]; s = s + n*k, {n, 30}] (* Ryan Propper, May 06 2006 *)
CROSSREFS
Cf. A112365.
Sequence in context: A120930 A070395 A200871 * A095421 A063584 A019296
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Sep 09 2005
EXTENSIONS
More terms from Ryan Propper, May 06 2006
STATUS
approved