[go: up one dir, main page]

login
A028816
Numbers k such that k^2 is a palindrome with an odd number of digits.
3
0, 1, 2, 3, 11, 22, 26, 101, 111, 121, 202, 212, 264, 307, 1001, 1111, 2002, 2285, 2636, 10001, 10101, 10201, 11011, 11111, 11211, 20002, 20102, 22865, 24846, 30693, 100001, 101101, 110011, 111111, 200002, 1000001, 1001001, 1002001, 1010101, 1011101, 1012101
OFFSET
1,3
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, n]], {n, 1012102}]; t (* Jayanta Basu, May 13 2013 *)
CROSSREFS
Cf. A028817.
Sequence in context: A049083 A305719 A002778 * A316187 A215952 A276375
KEYWORD
nonn,base
STATUS
approved