%I #11 May 23 2021 02:50:38
%S 2,3,5,7,13,29,31,41,43,47,59,61,67,71,73,79,89,97,101,107,113,193,
%T 211,227,233,239,251,349,353,373,383,449,457,463,479,487,491,503,509,
%U 521,523,541,577,587,643,677,683,719,733,751,757,773,787,811,823,827,829
%N Primes whose base 8 reversal is also prime.
%H Amiram Eldar, <a href="/A075238/b075238.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harvey P. Dale)
%t Prime[ Select[ Range[150], PrimeQ[ FromDigits[ Reverse[ IntegerDigits[ Prime[ # ], 8]], 8]] &]]
%t Select[Prime[Range[200]],PrimeQ[IntegerReverse[#,8]]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jun 09 2017 *)
%Y Cf. A007500, A074832, A074833, A074834, A075235, A075236, A075237, A075239.
%K base,easy,nonn
%O 1,1
%A _Robert G. Wilson v_, Sep 09 2002
|