A263618 Number of palindromic squares with exactly n digits.
4, 0, 3, 0, 7, 1, 5, 0, 11, 0, 5, 1, 19, 0, 13, 1, 25, 0, 18, 0, 48, 1, 31, 0, 70, 1, 44, 2, 105, 0, 70, 1, 153, 1, 98, 3, 209, 0, 132, 0, 291, 1, 181, 1, 384, 0, 234, 2, 496, 1, 301, 1, 636, 0, 383, 0, 798, 1, 474, 1, 981, 0, 578, 0, 1199, 2, 701
Offset: 1
Links
- G. J. Simmons, Palindromic powers, J. Rec. Math., 3 (No. 2, 1970), 93-98. [Annotated scanned copy] See page 95.
Crossrefs
Programs
-
Mathematica
Table[Length[Select[Range[If[n == 1, 0, Ceiling[Sqrt[10^(n - 1)]]],Floor[Sqrt[10^n]]], #^2 == IntegerReverse[#^2] &]], {n, 15}] (* Robert Price, Apr 26 2019 *)
Extensions
a(13)-a(19) from Chai Wah Wu, Oct 24 2015
a(20) from Robert Price, Apr 26 2019
a(21)-a(44) (using A002778) from Chai Wah Wu, Sep 16 2021
a(45)-a(67) from A002778 added by Max Alekseyev, Apr 08 2025
Comments