A050799 Values of n^2 - 1 resulting from A050795.

8, 80, 288, 360, 1088, 1224, 2600, 5328, 6560, 9800, 11024, 16640, 21024, 21608, 25920, 26568, 32040, 38024, 40400, 54288, 59048, 74528, 83520, 84680, 88208, 114920, 130320, 149768, 154448, 203400, 216224, 218088, 233288, 239120, 263168

Offset

0,1

Links

Table of n, a(n) for n=0..34.

Mathematica

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 *)

Crossrefs

Cf. A050795.

Sequence in context: A144410 A188149 A164755 * A100431 A173116 A102698

Adjacent sequences: A050796 A050797 A050798 * A050800 A050801 A050802

Keyword

nonn

Author

Patrick De Geest, Sep 15 1999

Status

approved