login
A031122
Integers that appear as ratios of Fibonacci numbers F(kn)/F(k), but omitting Fibonacci numbers F(n)/F(1) and Lucas numbers F(2n)/F(n).
3
17, 48, 72, 122, 305, 323, 329, 842, 1292, 1353, 2208, 2255, 5473, 5777, 5796, 15005, 15128, 15456, 23184, 24447, 39602, 98209, 103683, 103729, 104005, 105937, 166408, 271442, 416020, 439128, 709805, 710648, 726103, 1762289
OFFSET
1,1
PROG
(PARI) a031122(mk, mn, x) = local(v, vv, j, i); v=[]; for(k=3, mk, for(n=3, mn, v=concat(v, [fibonacci(k*n)/fibonacci(k)]))); v=vecsort(v); vv=[v[1]]; for(j=2, matsize(v)[2], if(v[j-1]<v[j]&&v[j]<x, vv=concat(vv, [v[j]]))); i=1; vv; a031122(150, 50, 610000000) \\ Klaus Brockhaus, Oct 20 2001
CROSSREFS
Cf. A031121.
Sequence in context: A083296 A362480 A159850 * A051869 A297818 A297988
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
Corrected and extended by Don Reble, Oct 20 2001
STATUS
approved