A050800 Values of n^2 + 1 resulting from A050796.

2, 50, 65, 145, 170, 290, 325, 442, 485, 530, 730, 785, 901, 962, 1025, 1090, 1157, 1370, 1445, 1682, 1765, 1850, 1937, 2117, 2210, 2305, 2501, 2705, 2810, 3026, 3250, 3365, 3601, 3845, 3970, 4097, 4490, 4625, 4901, 5185, 5330, 5626, 5777, 5930, 6085

Offset

1,1

Links

Table of n, a(n) for n=1..45.

Mathematica

t={2}; Do[i=c=2; x=n^2+1; While[i<n&&c!=0, If[IntegerQ[Sqrt[x-i^2]], c=0; AppendTo[t, x]]; i++], {n, 3, 78}]; t (* Jayanta Basu, Jun 01 2013 *)

Crossrefs

Cf. A050796.

Sequence in context: A225795 A027619 A076267 * A231051 A317819 A231082

Adjacent sequences: A050797 A050798 A050799 * A050801 A050802 A050803

Keyword

nonn

Author

Patrick De Geest, Sep 15 1999

Status

approved