A319388 Non-palindromic squares.

16, 25, 36, 49, 64, 81, 100, 144, 169, 196, 225, 256, 289, 324, 361, 400, 441, 529, 576, 625, 729, 784, 841, 900, 961, 1024, 1089, 1156, 1225, 1296, 1369, 1444, 1521, 1600, 1681, 1764, 1849, 1936, 2025, 2116, 2209, 2304, 2401, 2500, 2601, 2704, 2809, 2916, 3025

Offset: 1

Author

Seiichi Manyama, Sep 18 2018

Keywords

• nonn
• base

Comments

Intersection of A000290 and A029742. - Felix Fröhlich, Sep 18 2018

Links

• Seiichi Manyama, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000290, A002113, A002779, A029742, A035090, A319389.

Programs

Magma

[n^2: n in [0..60] | not Intseq(n^2) eq Reverse(Intseq(n^2))]; // Vincenzo Librandi, Sep 19 2018

Maple

ispali:= proc(n) local L;
L:= convert(n,base,10);
L = ListTools:-Reverse(L)
end proc:
remove(ispali, [seq(i^2,i=1..100)]); # Robert Israel, Sep 18 2018

Mathematica

 pb10Q[n_]:=!Module[{idn10=IntegerDigits[n, 10]}, idn10==Reverse[idn10]]; Select[Range[0, 3100]^2, pb10Q] (* Vincenzo Librandi, Sep 19 2018 *)

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++))
/* Print initial 50 terms as follows */
terms(50) \\ Felix Fröhlich, Sep 18 2018