|
Search: id:A111032
|
|
|
| A111032 |
|
Non-Fibonacci Markoff numbers. |
|
+0
1
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Complement(A002559, A000045)
|
|
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
|
Cf. A000045, A002559.
Sequence in context: A142827 A142938 A141910 this_sequence A033219 A142407 A042640
Adjacent sequences: A111029 A111030 A111031 this_sequence A111033 A111034 A111035
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 04 2005
|
|
|
Search completed in 0.002 seconds
|
