A052028 Primes base 10 that remain primes in six bases b, 2<=b<=10, expansions interpreted as decimal numbers.
157, 523, 1249, 1483, 1753, 4051, 9187, 10531, 22921, 25981, 29599, 35899, 51031, 57751, 67579, 79939, 98323, 103561, 110581, 148471, 150193, 150343, 249703, 259183, 277063, 278623, 331081, 335833, 353401, 391903, 424819, 435553, 504547
Offset: 1
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@ 42000], Count[PrimeQ /@ Table[FromDigits[IntegerDigits[#, i]], {i, 2, 10}], True] == 6 &] (* Michael De Vlieger, Mar 20 2015, after Harvey P. Dale at A052032 *)