A113016 Primes that remain primes when their decimal representation is interpreted duodecimally.
2, 3, 5, 7, 11, 17, 31, 37, 61, 67, 107, 131, 157, 167, 181, 241, 251, 271, 277, 307, 347, 397, 401, 421, 431, 457, 541, 557, 577, 587, 617, 647, 661, 701, 727, 751, 797, 881, 907, 971, 1021, 1051, 1061, 1087, 1151, 1201, 1231, 1297, 1301, 1367, 1471, 1601
Offset: 1
Examples
A000040(19) = 67 -> 6*12^1 + 7*12^0 = 72 + 7 = 79 = A000040(22).
Links
- Robert Price, Table of n, a(n) for n = 1..3642
- Eric Weisstein's World of Mathematics, Duodecimal
Programs
-
Mathematica
Select[ Prime[ Range[256]], PrimeQ[ FromDigits[ IntegerDigits[ # ], 12]] &] (* Robert G. Wilson v, Oct 12 2005 *)