cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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.

Original entry on oeis.org

10282339, 10306511, 32667367, 102615679, 105709573, 107647367, 107776891, 113265953, 198471113, 324580307, 981466259, 982322251, 983075549, 1001315129, 1002340429, 1004157421, 1005362971, 1007811719, 1008125953, 1099887589
Offset: 1

Views

Author

Farideh Firoozbakht, Apr 21 2006

Keywords

Comments

9835884797 is the smallest term such that the reversal of p^6 is also prime. - Hans Havermann, Apr 22 2006

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}]