%I #10 Oct 01 2013 17:57:57
%S 2,3,5,7,41,67,73,97,103,131,163,193,199,227,233,1031,1033,1129,1223,
%T 1319,1321,2081,2153,2243,2273,2339,3079,3169,3209,3271,3299,3331,
%U 4201,4289,5351,5417,6151,6337,7177,7369,8263,8297,8387,8423,9257,9319,9511
%N Primes which are also prime if their base 32 representation is interpreted as a base 10 number.
%H Vincenzo Librandi, <a href="/A090716/b090716.txt">Table of n, a(n) for n = 1..1000</a>
%e 41 is prime; in base 32 it is written "19" and the base 10 number 19 is also prime.
%t b32Q[n_]:= Module[{idn32=IntegerDigits[n, 32]}, Max[idn32]<10&&PrimeQ[FromDigits[idn32]]]; Select[Prime[Range[PrimePi[10000]]], b32Q] (* _Vincenzo Librandi_, Apr 18 2013 *)
%K base,nonn
%O 1,1
%A _Cino Hilliard_, Jan 18 2004
%E Edited by _Jens Kruse Andersen_, May 04 2008
|