|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|