A171159 Ordered Fibonomial coefficients (A144712) which are not Fibonacci numbers (A000045).

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

Author

Robert G. Wilson v, Dec 04 2009

Keywords

• nonn

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

Crossrefs

Cf. A000045, A010048, A144712, A001654.

Programs

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]