A180406 Primes p from sequence A180404 whose reverse is also a prime.
11, 101, 191, 313, 337, 359, 373, 733, 739, 757, 937, 953, 1033, 1091, 1109, 1181, 1213, 1231, 1259, 1321, 1381, 1439, 1583, 1811, 1831, 1901, 3121, 3163, 3299, 3301, 3343, 3433, 3613, 3851, 3929, 7057, 7187, 7507, 7817, 7949, 9011, 9293, 9341, 9479
Offset: 1
Examples
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.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
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 *)
Comments