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.
%I A180406 #13 Aug 24 2025 04:16:38
%S A180406 11,101,191,313,337,359,373,733,739,757,937,953,1033,1091,1109,1181,
%T A180406 1213,1231,1259,1321,1381,1439,1583,1811,1831,1901,3121,3163,3299,
%U A180406 3301,3343,3433,3613,3851,3929,7057,7187,7507,7817,7949,9011,9293,9341,9479
%N A180406 Primes p from sequence A180404 whose reverse is also a prime.
%C A180406 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
%H A180406 Harvey P. Dale, <a href="/A180406/b180406.txt">Table of n, a(n) for n = 1..1000</a>
%F A180406 A180404 INTERSECT A007500. - _R. J. Mathar_, Nov 23 2010
%e A180406 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.
%t A180406 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 *)
%Y A180406 Cf. A007500, A180404.
%K A180406 nonn,base,changed
%O A180406 1,1
%A A180406 _Carmine Suriano_, Sep 02 2010