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

%I #8 Mar 30 2012 18:38:46

%S 3,4,6,7,9,13,15,16,18,21,22,25,28,34,39,42,51,55,58,60,61,63,67,70,

%T 72,73,76,78,79,81,90,91,100,102,106,111,112,118,120,132,139,141,142,

%U 144,148,151,154,156,157,162,163,165,168,169,174,177,189,190,193,195,204

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

%t 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 &]

%K nonn

%O 1,1

%A _Benoit Cloitre_, Dec 31 2001

%E Edited by _Robert G. Wilson v_, Jan 14 2004