login
A111032
Non-Fibonacci Markoff numbers.
0
29, 169, 194, 433, 985, 1325, 2897, 5741, 6466, 7561, 9077, 14701, 33461, 37666, 43261, 51641, 62210, 96557, 135137, 195025, 294685, 426389, 499393, 646018, 925765, 1136689, 1278818, 1441889, 1686049, 2012674, 2423525, 2922509, 3276509
OFFSET
1,1
COMMENTS
Complement(A002559, A000045)
LINKS
Anitha Srinivasan, The Markoff-Fibonacci Numbers, Fibonacci Quart. 58 (2020), no. 5, 222-228.
MATHEMATICA
m = {1}; Do[x = m[[i]]; y = m[[j]]; a = (3*x*y + Sqrt[ -4*x^2 - 4*y^2 + 9*x^2*y^2])/2; b = (3*x*y + Sqrt[ -4*x^2 - 4*y^2 + 9*x^2*y^2])/2; If[ IntegerQ[a], m = Union[ Join[m, {a}]]]; If[ IntegerQ[b], m = Union[ Join[m, {b}]]], {n, 8}, {i, Length[m]}, {j, i}]; Complement[ Take[m, 50], Fibonacci /@ Range[38]]
CROSSREFS
Sequence in context: A264252 A264530 A141910 * A238599 A033219 A142407
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Oct 04 2005
STATUS
approved