|
%I #7 Mar 30 2012 17:26:37
%S 2,3,5,7,13,19,37,43,73,79,151,181,211,223,241,337,349,373,379,439,
%T 487,547,577,601,613,643,769,787,811,823,883,919,937,1009,1039,1069,
%U 1123,1249,1303,1381,1753,1789,1801,1831,1933,2017,2053,2131,2161,2239,2389,2593,2617,2659,2671,2707,2791,2917,2953
%N Primes in A031344.
%C Primes that appear to remain prime if transliterated to base 12.
%e 13 is here because 13 (base 10) = 11 (base 12) and 11 is prime in base 10.
%t Select[Table[FromDigits[IntegerDigits[Prime[n]],12],{n,1000}],PrimeQ]
%Y Cf. A031344.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Apr 09 2011
|
