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,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

Cf. A000045, A010048, A144712, A001654.

Sequence in context: A272258 A192308 A277237 * A273562 A273748 A272847

Adjacent sequences: A171156 A171157 A171158 * A171160 A171161 A171162

Keyword

nonn

Author

Robert G. Wilson v, Dec 04 2009

Status

approved