|
|
A130732
|
|
Floor(Fibonacci(n)/Prime(n)).
|
|
1
|
|
|
0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 2, 3, 5, 8, 12, 18, 27, 42, 62, 95, 149, 224, 345, 520, 773, 1201, 1906, 2970, 4717, 7363, 10600, 16628, 25726, 41027, 61929, 98876, 153871, 239804, 378718, 591526, 925028, 1480189, 2269604, 3634242, 5760929, 9227698, 14081588
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,11
|
|
LINKS
|
|
|
EXAMPLE
|
a(12) = 3 because the 12th fibonacci number is 144, the 12th prime is 37 and 144/37 = 3.8189... whose floor value is 3.
|
|
MATHEMATICA
|
Table[Floor[Fibonacci[n]/Prime[n]], {n, 1, 100}]
With[{nn=50}, Floor[First[#]/Last[#]]&/@Thread[{Fibonacci[Range[nn]], Prime[Range[nn]]}]] (* Harvey P. Dale, Aug 09 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
Stephen Casey (hexomino(AT)gmail.com), Jul 05 2007
|
|
STATUS
|
approved
|
|
|
|