A188754 Primes in A031344.
2, 3, 5, 7, 13, 19, 37, 43, 73, 79, 151, 181, 211, 223, 241, 337, 349, 373, 379, 439, 487, 547, 577, 601, 613, 643, 769, 787, 811, 823, 883, 919, 937, 1009, 1039, 1069, 1123, 1249, 1303, 1381, 1753, 1789, 1801, 1831, 1933, 2017, 2053, 2131, 2161, 2239, 2389, 2593, 2617, 2659, 2671, 2707, 2791, 2917, 2953
Offset: 1
Examples
13 is here because 13 (base 10) = 11 (base 12) and 11 is prime in base 10.
Crossrefs
Cf. A031344.
Programs
-
Mathematica
Select[Table[FromDigits[IntegerDigits[Prime[n]],12],{n,1000}],PrimeQ]
Comments