This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A065114 #5 Oct 13 2023 06:50:36
%S A065114 5,11,24,29,31,34,39,41,56,61,65,79,88,97,104,114,136,146,151,153,168,
%T A065114 218,230,264,269,281,287,306,311,325,391,424,445,447,459,466,482,491,
%U A065114 494,509,522,560,563,579,586,624,637,659,667,698,712,714,716,731,791
%N A065114 Sum of terms in the period of continued fraction for sqrt(n) (A010340) is a square.
%t A065114 Do[ If[ !IntegerQ[ Sqrt[n]] && IntegerQ[ Sqrt[ Apply[ Plus, Last[ ContinuedFraction[ Sqrt[ n]]]]]], Print[n]], {n, 1, 1000} ]
%K A065114 nonn
%O A065114 1,1
%A A065114 _Robert G. Wilson v_, Nov 12 2001