login
A052031
Primes base 10 that remain primes in three bases b, 2<=b<=10, expansions interpreted as decimal numbers.
3
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,1
EXAMPLE
11 is 23_4, 13_8 and 11_10.
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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Dec 15 1999
STATUS
approved