|
|
A050800
|
|
Values of n^2 + 1 resulting from A050796.
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|