|
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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: A032725 A089038 A137673 * A127594 A094604 A108654
Adjacent sequences: A066268 A066269 A066270 * A066272 A066273 A066274
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Benoit Cloitre (benoit7848c(AT)orange.fr), Dec 31 2001
|
|
|
EXTENSIONS
| Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 14 2004
|
| |
|
|
