%I #11 Jul 30 2017 22:16:22
%S 0,4,16,0,16,4,9,36,0,36,9,4,32400,16,64,0,64,16,1521,4,144,1764,25,
%T 100,0,100,25,576,3312400,4,74529,9,16,36,144,0,144,36,16,9,102400,4,
%U 281961,900,576,12873744,49,196,0,196,49,8100,82810000,4356,144,4,400
%N Smallest square k > 1 such that n*k + 1 is also a square or 0 if no such term exists, i.e., when n is a square.
%C Terms from _Robert G. Wilson v_.
%t Do[k = 0; If[ !IntegerQ[ Sqrt[n]], k = 2; While[ !IntegerQ[ Sqrt[n*k^2 + 1]], k++ ]]; Print[k^2], {n, 1, 60}] (* _Robert G. Wilson v_ *)
%Y Cf. A069018.
%K nonn
%O 0,2
%A _Robert G. Wilson v_ and _Amarnath Murthy_, Apr 02 2002
|