|
%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
|
