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,1

Links

Robert Price, Table of n, a(n) for n = 1..3642

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

Cf. A113017, A102487, A000040.

Sequence in context: A071255 A062294 A245879 * A085136 A068868 A127435

Adjacent sequences: A113013 A113014 A113015 * A113017 A113018 A113019

Keyword

nonn,base

Author

Reinhard Zumkeller, Oct 11 2005

Status

approved