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 A319388 #21 Sep 08 2022 08:46:23
%S A319388 16,25,36,49,64,81,100,144,169,196,225,256,289,324,361,400,441,529,
%T A319388 576,625,729,784,841,900,961,1024,1089,1156,1225,1296,1369,1444,1521,
%U A319388 1600,1681,1764,1849,1936,2025,2116,2209,2304,2401,2500,2601,2704,2809,2916,3025
%N A319388 Non-palindromic squares.
%C A319388 Intersection of A000290 and A029742. - _Felix Fröhlich_, Sep 18 2018
%H A319388 Seiichi Manyama, <a href="/A319388/b319388.txt">Table of n, a(n) for n = 1..1000</a>
%p A319388 ispali:= proc(n) local L;
%p A319388 L:= convert(n,base,10);
%p A319388 L = ListTools:-Reverse(L)
%p A319388 end proc:
%p A319388 remove(ispali, [seq(i^2,i=1..100)]); # _Robert Israel_, Sep 18 2018
%t A319388 pb10Q[n_]:=!Module[{idn10=IntegerDigits[n, 10]}, idn10==Reverse[idn10]]; Select[Range[0, 3100]^2, pb10Q] (* _Vincenzo Librandi_, Sep 19 2018 *)
%o A319388 (PARI) terms(n) = my(i=0); for(k=0, oo, if(i==n, break); my(s=k^2, d=digits(s)); if(d!=Vecrev(d), print1(s, ", "); i++))
%o A319388 /* Print initial 50 terms as follows */
%o A319388 terms(50) \\ _Felix Fröhlich_, Sep 18 2018
%o A319388 (Magma) [n^2: n in [0..60] | not Intseq(n^2) eq Reverse(Intseq(n^2))]; // _Vincenzo Librandi_, Sep 19 2018
%Y A319388 Cf. A000290, A002113, A002779, A029742, A035090, A319389.
%K A319388 nonn,base
%O A319388 1,1
%A A319388 _Seiichi Manyama_, Sep 18 2018