login
A171159
Ordered Fibonomial coefficients (A144712) which are not Fibonacci numbers (A000045).
2
6, 15, 40, 60, 104, 260, 273, 714, 1092, 1820, 1870, 4641, 4895, 12376, 12816, 19635, 33552, 83215, 85085, 87841, 136136, 229970, 352440, 582505, 602070, 1493064, 1514513, 1576239, 3994320, 4126648, 6324552, 10803704, 16776144, 26791505
OFFSET
1,1
COMMENTS
Complement of A144712 with A000045.
Not surprisingly, many are Golden rectangle numbers (A001654).
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..54
MATHEMATICA
f[n_, k_] := Product[Fibonacci[n - j + 1]/Fibonacci[j], {j, k}]; fibQ[n_] := (Fibonacci@ Round@ Log[ GoldenRatio, n*Sqrt@5] == n); Take[ Select[ Union@ Flatten@ Table[ f[n, i], {n, 0, 19}, {i, 0, Floor[n/2]}], ! fibQ@# &], 34]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Dec 04 2009
STATUS
approved