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