A135066 Primes p such that p^3 is a palindrome.

2, 7, 11, 101

Offset

1,1

Comments

Note that all first 4 listed terms are the palindromes. Corresponding palindromic cubes a(n)^3 are listed in A135067 = {8, 343, 1331, 1030301, ...}. PrimePi[ a(n) ] = {1, 4, 5, 26, ...}.

No further terms less than 1.29 * 10^10. - Michael S. Branicky, Feb 07 2021

Links

Table of n, a(n) for n=1..4.

Patrick De Geest, Palindromic Cubes

Formula

a(n) = A135067(n)^(1/3).

Example

a(3) = 11 because 11^3 = 1331 is a palindrome.

Mathematica

Do[ p = Prime[n]; f = p^3; If[ f == FromDigits[ Reverse[ IntegerDigits[ f ] ] ], Print[ {n, p, f} ]], {n, 1, 200000} ]

Prog

(Python)
from sympy import nextprime
def ispal(n): s = str(n); return s == s[::-1]
p = 2
while True:
  if ispal(p**3): print(p)
  p = nextprime(p) # Michael S. Branicky, Feb 07 2021

Crossrefs

Cf. A002780 (cube is a palindrome), A069748 (n and n^3 are both palindromes), A002781 (palindromic cubes), A135067 (palindromic cubes of primes).

Sequence in context: A073623 A101592 A349709 * A085315 A002780 A069885

Adjacent sequences: A135063 A135064 A135065 * A135067 A135068 A135069

Keyword

nonn,base,more

Author

Alexander Adamchuk, Nov 16 2007

Status

approved