%I #11 Nov 02 2023 14:18:35
%S 2,3,5,7,11,17,31,37,61,67,107,131,157,167,181,241,251,271,277,307,
%T 347,397,401,421,431,457,541,557,577,587,617,647,661,701,727,751,797,
%U 881,907,971,1021,1051,1061,1087,1151,1201,1231,1297,1301,1367,1471,1601
%N Primes that remain primes when their decimal representation is interpreted duodecimally.
%H Robert Price, <a href="/A113016/b113016.txt">Table of n, a(n) for n = 1..3642</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Duodecimal.html">Duodecimal</a>
%e A000040(19) = 67 -> 6*12^1 + 7*12^0 = 72 + 7 = 79 = A000040(22).
%t Select[ Prime[ Range[256]], PrimeQ[ FromDigits[ IntegerDigits[ # ], 12]] &] (* _Robert G. Wilson v_, Oct 12 2005 *)
%Y Cf. A113017, A102487, A000040.
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, Oct 11 2005