A052030 Primes base 10 that remain primes in four bases b, 2<=b<=10, expansions interpreted as decimal numbers.
19, 23, 37, 67, 79, 103, 127, 191, 193, 211, 229, 277, 311, 313, 337, 379, 409, 433, 443, 577, 613, 619, 631, 643, 647, 653, 787, 857, 883, 907, 919, 947, 997, 1021, 1039, 1087, 1097, 1123, 1171, 1279, 1423, 1429, 1447, 1459, 1471, 1567, 1597, 1669, 1693
Offset: 1
Examples
19 is 103_4, 31_6, 23_8 and 19_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@ 265], Count[PrimeQ /@ Table[FromDigits[IntegerDigits[#, i]], {i, 2, 10}], True] == 4 &] (* Michael De Vlieger, Mar 20 2015 after Harvey P. Dale at A052032 *)