A066271 Numbers n such that A066256(n) = n^2-2*n+2.

3, 4, 6, 7, 9, 13, 15, 16, 18, 21, 22, 25, 28, 34, 39, 42, 51, 55, 58, 60, 61, 63, 67, 70, 72, 73, 76, 78, 79, 81, 90, 91, 100, 102, 106, 111, 112, 118, 120, 132, 139, 141, 142, 144, 148, 151, 154, 156, 157, 162, 163, 165, 168, 169, 174, 177, 189, 190, 193, 195, 204

Offset

1,1

Links

Table of n, a(n) for n=1..61.

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

Sequence in context: A226245 A369610 A236386 * A127594 A094604 A108654

Adjacent sequences: A066268 A066269 A066270 * A066272 A066273 A066274

Keyword

nonn

Author

Benoit Cloitre, Dec 31 2001

Extensions

Edited by Robert G. Wilson v, Jan 14 2004

Status

approved