A135067 Palindromic cubes p^3, where p is a prime.
8, 343, 1331, 1030301
Offset: 1
Examples
a(3) = 1331 because 11^3 = 1331 is a palindrome and 11 is a prime.
Links
- P. De Geest, Palindromic Cubes
Crossrefs
Programs
-
Mathematica
Do[ p = Prime[n]; f = p^3; If[ f == FromDigits[ Reverse[ IntegerDigits[ f ] ] ], Print[ {n, p, f} ]], {n, 1, 200000} ] Select[Prime[Range[200]]^3,PalindromeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 26 2021 *)
Formula
a(n) = A135066(n)^3.
Comments