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 A193097 #15 Nov 21 2013 12:50:18 %S A193097 11,14,19,41,44,49,91,94,99,116,125,136,149,161,169,181,251,254,259, %T A193097 361,364,369,416,425,436,449,464,481,491,494,499,641,644,649,811,814, %U A193097 819,916,925,936,949,964,981,1001,1004,1009,1100,1121,1144,1169,1196,1211 %N A193097 Numbers that are the concatenation of exactly one pair of nonzero squares. %C A193097 Subsequence of A191933; A193095(a(n)) = 1. %H A193097 Reinhard Zumkeller, <a href="/A193097/b193097.txt">Table of n, a(n) for n = 1..10000</a> %e A193097 161 = concat(4^2,1^2), therefore 161 is a term; %e A193097 164 = concat(1^2,8^2) = concat(4^2,2^2), therefore 164 is not a term (A191933(15)=A192993(1)=164, A193095(164)=2). %t A193097 Take[Union[FromDigits[Flatten[IntegerDigits/@((#)^2)]]&/@Tuples[Range[14],2]],60] (* _Harvey P. Dale_, Jul 27 2011 *) %o A193097 (Haskell) %o A193097 import Data.List (elemIndices) %o A193097 a193097 n = a193097_list !! (n-1) %o A193097 a193097_list = elemIndices 1 $ map a193095 [0..] %K A193097 nonn,base %O A193097 1,1 %A A193097 _Reinhard Zumkeller_, Jul 17 2011