%I
%S 5,7,17,37,107,137,271
%N Primes p such that 2^p reversed is a prime.
%C Equivalently, primes in A057708.  _Muniru A Asiru_, Dec 25 2018
%t Select[Prime[Range[100]], PrimeQ[ToExpression[StringReverse[ToString[2^#]]]] &]
%o (MAGMA) [p: p in PrimesUpTo(200)  IsPrime(Seqint(Reverse(Intseq(2^p))))];
%o (PARI) isok(p) = isprime(p) && isprime(fromdigits(Vecrev(digits(2^p)))); \\ _Michel Marcus_, Sep 22 2018
%o (GAP) P0:=List(List([1..300],j>Reversed(ListOfDigits(2^j))),k>Sum([1..Size(k)],i>k[i]*10^(Size(k)i)));;
%o a:=Filtered([1..Length(P0)],m>IsPrime(m) and IsPrime(P0[m]));; Print(a); # _Muniru A Asiru_, Dec 25 2018
%Y Cf. A059706.
%Y Subsequence of A057708.
%K nonn,base,more
%O 1,1
%A _Vincenzo Librandi_, Sep 22 2018
