A118213 Prime numbers p such that the reversal of all the five numbers p, p^2, p^3, p^4 and p^5 are primes.
10282339, 10306511, 32667367, 102615679, 105709573, 107647367, 107776891, 113265953, 198471113, 324580307, 981466259, 982322251, 983075549, 1001315129, 1002340429, 1004157421, 1005362971, 1007811719, 1008125953, 1099887589
Offset: 1
Examples
p=10282339 is in the sequence because p is prime; reversal(p^k) for k=1,2,...,5 are respectively 93328201, 129013594627501, 9124210088606665117801, 14286816400200203701819087111 & 996592728588610999557150173929639411 and these five numbers are primes.
Crossrefs
Cf. A118212.
Programs
-
Mathematica
Do[If[n=Prime[m];PrimeQ[FromDigits[Reverse[IntegerDigits[n]]]] && PrimeQ[FromDigits[Reverse[IntegerDigits[n^2]]]] && PrimeQ [FromDigits[Reverse[IntegerDigits[n^3]]]] && PrimeQ[FromDigits [Reverse[IntegerDigits[n^4]]]] && PrimeQ[FromDigits[Reverse [IntegerDigits[n^5]]]], Print[n]], {m, 56000000}]
Comments