login
A066271
Numbers n such that A066256(n) = n^2-2*n+2.
0
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
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
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Dec 31 2001
EXTENSIONS
Edited by Robert G. Wilson v, Jan 14 2004
STATUS
approved