login
A113016
Primes that remain primes when their decimal representation is interpreted duodecimally.
2
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,1
LINKS
Eric Weisstein's World of Mathematics, Duodecimal
EXAMPLE
A000040(19) = 67 -> 6*12^1 + 7*12^0 = 72 + 7 = 79 = A000040(22).
MATHEMATICA
Select[ Prime[ Range[256]], PrimeQ[ FromDigits[ IntegerDigits[ # ], 12]] &] (* Robert G. Wilson v, Oct 12 2005 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Oct 11 2005
STATUS
approved