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 A193096 #26 Sep 02 2025 04:09:56
%S A193096 0,1,2,3,4,5,6,7,8,9,10,12,13,15,16,17,18,20,21,22,23,24,25,26,27,28,
%T A193096 29,30,31,32,33,34,35,36,37,38,39,40,42,43,45,46,47,48,50,51,52,53,54,
%U A193096 55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72
%N A193096 Numbers that cannot be written as concatenation of two nonzero squares in decimal representation.
%C A193096 Complement of A191933; A193095(a(n)) = 0.
%H A193096 Reinhard Zumkeller, <a href="/A193096/b193096.txt">Table of n, a(n) for n = 1..10000</a>
%t A193096 Complement[Range[75], Union[Flatten[Table[FromDigits[Flatten[{IntegerDigits[m^2], IntegerDigits[n^2]}]], {m, 3}, {n, 3}]]]] (* _Alonso del Arte_, Aug 11 2011 *)
%o A193096 (Haskell)
%o A193096 import Data.List (elemIndices)
%o A193096 a193096 n = a193096_list !! (n-1)
%o A193096 a193096_list = elemIndices 0 $ map a193095 [0..]
%Y A193096 Cf. A193095, A191933.
%K A193096 nonn,base,changed
%O A193096 1,3
%A A193096 _Reinhard Zumkeller_, Jul 17 2011
%E A193096 Incorrect terms removed and missing terms added by _Jaroslav Krizek_, Aug 12 2011