A056810 Numbers whose fourth power is a palindrome.
0, 1, 11, 101, 1001, 10001, 100001, 1000001, 10000001, 100000001, 1000000001, 10000000001, 100000000001
Offset: 1
Links
- G. J. Simmons, Palindromic powers, J. Rec. Math., 3 (No. 2, 1970), 93-98. [Annotated scanned copy]
- G. J. Simmons, On palindromic squares of non-palindromic numbers, J. Rec. Math., 5 (No. 1, 1972), 11-19. [Annotated scanned copy]
Crossrefs
Cf. A186080.
Programs
-
Mathematica
palQ[n_] := Block[{}, Reverse[idn = IntegerDigits@ n] == idn]; k = 0; lst = {}; While[k < 1000000002, If[ palQ[k^4], AppendTo[lst, k]]; k++]; lst (* Robert G. Wilson v, Oct 23 2015 *)
-
Python
def ispal(n): s = str(n); return s == s[::-1] def afind(limit): for k in range(limit+1): if ispal(k**4): print(k, end=", ") afind(10000001) # Michael S. Branicky, Sep 05 2021
Extensions
a(11) from Robert G. Wilson v, Oct 23 2015
a(12)-a(13) from Michael S. Branicky, Sep 05 2021
Comments