A028817 Palindromic squares with an odd number of digits.

1, 4, 9, 121, 484, 676, 10201, 12321, 14641, 40804, 44944, 69696, 94249, 1002001, 1234321, 4008004, 5221225, 6948496, 100020001, 102030201, 104060401, 121242121, 123454321, 125686521, 400080004, 404090404, 522808225, 617323716, 942060249, 10000200001

Offset: 1

Author

Patrick De Geest

Keywords

• nonn
• base

Links

• Patrick De Geest, Subsets of Palindromic Squares

Crossrefs

Cf. A002779, A028816.

Programs

Mathematica

id[n_] := IntegerDigits[n]; palQ[n_] := FromDigits[Reverse[id[n]]] == n; t = {}; Do[If[palQ[x = n^2] && OddQ[Length[id[x]]], AppendTo[t, x]],{n, 101000}]; t (* Jayanta Basu, May 13 2013 *)
Select[Range[100000]^2, PalindromeQ[#] && EvenQ[Floor[Log[10, #]]] &] (* Alonso del Arte, Oct 11 2019 *)

Scala

def isPalindromic(n: BigInt): Boolean = n.toString == n.toString.reverse
val squares = ((1: BigInt) to (1000000: BigInt)).map(n => n * n)
squares.filter(n => isPalindromic(n) && n.toString.length % 2 == 1) // Alonso del Arte, Oct 07 2019