OFFSET
1,1
COMMENTS
The reverse is obviously also in A180404 because the sum of the fifth powers of digits is not changed by digit reversal [R. J. Mathar, Nov 23 2010]
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
a(5)=337 since 3^5+3^5+7^5=243+243+16807=17293 is still a prime and reverse(337)=733 is a prime, with same property.
MATHEMATICA
Select[Prime[Range[1200]], AllTrue[{IntegerReverse[#], Total[ IntegerDigits[ #]^5]}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Aug 20 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Carmine Suriano, Sep 02 2010
STATUS
approved