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 A102538 #9 Mar 14 2015 16:46:53
%S A102538 175,176,208,551,799,1035,1247,1403,1872,2856,2967,3395,3496,3503,
%T A102538 3531,3731,3864,3999,4136,4387,4416,4512,4543,5343,5368,5499,5520,
%U A102538 6099,6160,6608,6751,7791,8855,9048,10439,10664,10904,11323,11935,12208,13299
%N A102538 Numbers n not of form k(k+2) that have a single '1' in the periodic part of the continued fraction of sqrt(n).
%C A102538 Members of A013648 not in A005563.
%C A102538 No prime numbers? - Zak Seidov, Feb 28 2012
%H A102538 Zak Seidov, <a href="/A102538/b102538.txt">Table of n, a(n) for n = 1..1000</a>
%t A102538 fQ[n_] := Block[{k = Floor[Sqrt[n]]}, If[ k(k + 2) != n && !IntegerQ[ Sqrt[n]], cof = Sort[ ContinuedFraction[ Sqrt[n]] [[2]]]; If[ cof[[1]] == 1 && cof[[2]] != 1, True]]]; Select[ Range[ 13986], fQ[ # ] &] (* _Robert G. Wilson v_, Jan 25 2005 *)
%K A102538 nonn
%O A102538 1,1
%A A102538 _Ralf Stephan_, Jan 14 2005
%E A102538 More terms from _Robert G. Wilson v_, Jan 25 2005