|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|