|
%I #8 Nov 11 2021 14:02:59
%S 3,5,7,11,13,17,31,37,71,73,97,101,107,113,131,151,167,181,199,313,
%T 337,353,359,373,383,701,709,727,739,757,797,907,937,941,953,967,1033,
%U 1091,1109,1153,1181,1193,1201,1217,1229,1259,1439,1453,1471,1487,1619,1669
%N Primes whose decimal and binary reversal are both prime.
%H Harvey P. Dale, <a href="/A136186/b136186.txt">Table of n, a(n) for n = 1..1000</a>
%e 337 = 101010001 base 2, reverse the sequence of ones and zeros: 100010101 base 2 = 277. 337, 733 and 277 are all prime.
%t Select[Prime[Range[300]],AllTrue[{IntegerReverse[#],FromDigits[ Reverse[ IntegerDigits[ #,2]],2]},PrimeQ]&] (* _Harvey P. Dale_, Nov 11 2021 *)
%Y Cf. A007500, A074832.
%K base,nonn
%O 1,1
%A _Harry J. Smith_, Dec 19 2007
|
