|
%I #10 Oct 01 2013 17:57:57
%S 2,3,5,7,41,47,79,83,383,419,457,463,503,541,769,839,877,1103,1109,
%T 1181,1187,1453,1483,1523,1559,1907,1979,2243,2281,2593,2663,2897,
%U 2927,3041,3313,3347,3389,6917,7229,7603,7607,7639,7723,7753,7759,7949,8363,8369
%N Primes which are also prime if their base 19 representation is interpreted as a base 10 number.
%H Vincenzo Librandi, <a href="/A090714/b090714.txt">Table of n, a(n) for n = 1..1000</a>
%e 41 is prime; in base 19 it is written "23" and the base 10 number 23 is also prime.
%t b19Q[n_]:= Module[{idn19=IntegerDigits[n, 19]}, Max[idn19]<10&&PrimeQ[FromDigits[idn19]]]; Select[Prime[Range[PrimePi[9000]]], b19Q] (* _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
|
