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 A270385 #13 May 17 2016 12:05:46
%S A270385 25,75,100,150,169,175,195,225,255,275,289,300,350,375,390,400,435,
%T A270385 455,475,507,510,525,550,555,575,595,600,615,663,675,676,700,715,750,
%U A270385 775,780,795,825,841,867,870,875,900,910,915,935,950,975,1014,1015,1020,1050,1075,1095
%N A270385 Numbers n such that n^2 is a term of A007692 while n is not.
%C A270385 Subsequence of A009177.
%e A270385 25 is a term because 25 is not a term of A007692 while 25^2 = 625 is a term of A007692.
%t A270385 fQ[n_] := Length@ Select[PowersRepresentations[n, 2, 2], First@ # != 0 &] > 1; Select[Range@1100, And[! fQ@ #, fQ[#^2]] &] (* _Michael De Vlieger_, May 17 2016 *)
%o A270385 (PARI) isA007692(n) = {nb = 0; lim = sqrtint(n); for (x=1, lim, if ((n-x^2 >= x^2) && issquare(n-x^2), nb++); ); nb >= 2; }
%o A270385 lista(nn) = for(n=1, nn, if(!isA007692(n) && isA007692(n^2), print1(n, ", ")));
%Y A270385 Cf. A007692, A009177.
%K A270385 nonn
%O A270385 1,1
%A A270385 _Altug Alkan_, May 17 2016