## S000941

In base 10, these positive numbers and their squares are palindromic.

1, 2, 3, 11, 22, 101, 111, 121, 202, 212, 1001, 1111, 2002, 10001, 10101, 10201, 11011, 11111, 11211, 20002, 20102, 100001, 101101, 110011, 111111, 200002, 1000001, 1001001, 1002001, 1010101, 1011101, 1012101, 1100011, 1101011, 1102011, 1110111, 1111111

1

After the third term, the numbers appear to have only the digits 0, 1, and 2.

T. D. Noe, Plot of 253 terms

T. D. Noe, Table of 253 terms

Eric W. Weisstein, MathWorld: Palindromic Number

(Mma) makePalindrome[n_Integer, b_Integer, del_] := Module[{c = IntegerDigits[n, b], d}, d = If[del, Join[c, Reverse[Most[c]]], Join[c, Reverse[c]]]; FromDigits[d]]; palindromeQ[n_, b_] := Module[{d = IntegerDigits[n, b]}, d == Reverse[d]]; b = 10; t = {}; Do[Do[Do[d = makePalindrome[i, b, j]; e = FromDigits[IntegerDigits[d], b]; If[palindromeQ[e^2, b], AppendTo[t, e]], {i, b^(n - 1), b^n - 1}], {j, {True, False}}], {n, Floor[0.5 + 10*Log[3]/Log[b]]}]

Cf. S000934-S000940.

nonn,base

T. D. Noe, Aug 26 2016

© Tony D Noe 2014-2016