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,1

Comments

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

Links

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

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 *)

Prog

(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
(Magma) [n^2: n in [0..60] | not Intseq(n^2) eq Reverse(Intseq(n^2))]; // Vincenzo Librandi, Sep 19 2018

Crossrefs

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

Sequence in context: A245371 A235717 A368049 * A291334 A175689 A030666

Adjacent sequences: A319385 A319386 A319387 * A319389 A319390 A319391

Keyword

nonn,base

Author

Seiichi Manyama, Sep 18 2018

Status

approved