A319440 Squares of non-palindromic number.

100, 144, 169, 196, 225, 256, 289, 324, 361, 400, 441, 529, 576, 625, 676, 729, 784, 841, 900, 961, 1024, 1156, 1225, 1296, 1369, 1444, 1521, 1600, 1681, 1764, 1849, 2025, 2116, 2209, 2304, 2401, 2500, 2601, 2704, 2809, 2916, 3136, 3249, 3364, 3481, 3600, 3721, 3844

Offset: 1

Author

Seiichi Manyama, Sep 19 2018

Keywords

• nonn
• base
• easy

Links

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

Crossrefs

Cf. A000290, A002113, A029742, A319388, A319441.

Programs

Magma

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

Mathematica

palQ[n_]:=Module[{idn=IntegerDigits[n]}, idn==Reverse[idn]]; DeleteCases[Range[10, 110],?palQ]^2 (* _Vincenzo Librandi, Sep 19 2018 *)

Python

def A319440(n):
    def f(x): return n+x//10**((l:=len(s:=str(x)))-(k:=l+1>>1))-(int(s[k-1::-1])>x%10**k)+10**(k-1+(l&1^1))-1
    m, k = n, f(n)
    while m != k: m, k = k, f(k)
    return m**2 # Chai Wah Wu, Oct 28 2024

Formula

a(n) = A029742(n)^2.