OFFSET
1,1
MATHEMATICA
f[n_] := Block[{k = 1}, While[m = (k^2 + n)/(n^2 + k); !IntegerQ[m] || m == 1, k++ ]; k]; Select[ Range[2, 206], f[ # ] == #^2 - 2# + 2 &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Dec 31 2001
EXTENSIONS
Edited by Robert G. Wilson v, Jan 14 2004
STATUS
approved