OFFSET
1,1
COMMENTS
Equivalently, primes in A057708. - Muniru A Asiru, Dec 25 2018
MATHEMATICA
Select[Prime[Range[100]], PrimeQ[ToExpression[StringReverse[ToString[2^#]]]] &]
PROG
(Magma) [p: p in PrimesUpTo(200) | IsPrime(Seqint(Reverse(Intseq(2^p))))];
(PARI) isok(p) = isprime(p) && isprime(fromdigits(Vecrev(digits(2^p)))); \\ Michel Marcus, Sep 22 2018
(GAP) P0:=List(List([1..300], j->Reversed(ListOfDigits(2^j))), k->Sum([1..Size(k)], i->k[i]*10^(Size(k)-i)));;
a:=Filtered([1..Length(P0)], m->IsPrime(m) and IsPrime(P0[m]));; Print(a); # Muniru A Asiru, Dec 25 2018
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Vincenzo Librandi, Sep 22 2018
STATUS
approved