A052031 Primes base 10 that remain primes in three bases b, 2<=b<=10, expansions interpreted as decimal numbers.
11, 13, 17, 29, 31, 47, 59, 61, 83, 89, 97, 101, 109, 149, 151, 179, 181, 197, 227, 241, 251, 281, 331, 349, 353, 359, 373, 383, 419, 421, 439, 449, 457, 487, 503, 541, 547, 563, 587, 601, 617, 659, 673, 709, 727, 733, 743, 751, 773, 811, 823, 877, 953, 967
Offset: 1
Examples
11 is 23_4, 13_8 and 11_10.
Links
- Sebastian Petzelberger, Table of n, a(n) for n = 1..10000
- C. Rivera, PP&P Puzzle 24: Primes in several bases
Programs
-
Mathematica
Select[Prime[Range@ 165], Count[PrimeQ /@ Table[FromDigits[IntegerDigits[#, i]], {i, 2, 10}], True] == 3 &] (* Michael De Vlieger, Mar 20 2015 after Harvey P. Dale at A052032 *)