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
Links
- Seiichi Manyama, Table of n, a(n) for n = 1..10000
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.