|
%I #8 Oct 17 2019 22:40:45
%S 8,80,288,360,1088,1224,2600,5328,6560,9800,11024,16640,21024,21608,
%T 25920,26568,32040,38024,40400,54288,59048,74528,83520,84680,88208,
%U 114920,130320,149768,154448,203400,216224,218088,233288,239120,263168
%N Values of n^2 - 1 resulting from A050795.
%t t={}; Do[i=c=1; x=n^2-1; While[i<n&&c!=0,If[IntegerQ[Sqrt[x-i^2]],c=0; AppendTo[t,x]]; i++],{n,3,520}]; t (* _Jayanta Basu_, Jun 01 2013 *)
%Y Cf. A050795.
%K nonn
%O 0,1
%A _Patrick De Geest_, Sep 15 1999
|
