1,1
Table of n, a(n) for n=1..61.
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 &]
Sequence in context: A137673 A226245 A236386 * A127594 A094604 A108654
Adjacent sequences: A066268 A066269 A066270 * A066272 A066273 A066274
nonn
Benoit Cloitre, Dec 31 2001
Edited by Robert G. Wilson v, Jan 14 2004
approved