OFFSET
1,1
LINKS
Zak Seidov, Table of n, a(n) for n = 1..1000
MATHEMATICA
fQ[n_] := Block[{k = Floor[Sqrt[n]]}, If[ k(k + 2) != n && !IntegerQ[ Sqrt[n]], cof = Sort[ ContinuedFraction[ Sqrt[n]] [[2]]]; If[ cof[[1]] == 1 && cof[[2]] != 1, True]]]; Select[ Range[ 13986], fQ[ # ] &] (* Robert G. Wilson v, Jan 25 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ralf Stephan, Jan 14 2005
EXTENSIONS
More terms from Robert G. Wilson v, Jan 25 2005
STATUS
approved