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

Links

Sebastian Petzelberger, Table of n, a(n) for n = 1..10000

C. Rivera, PP&P Puzzle 24: Primes in several bases

Example

19 is 103_4, 31_6, 23_8 and 19_10.

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 *)

Crossrefs

Cf. A038537, A052026-A052033.

Sequence in context: A060269 A245382 A075585 * A045297 A039292 A043115

Adjacent sequences: A052027 A052028 A052029 * A052031 A052032 A052033

Keyword

nonn,base

Author

Patrick De Geest, Dec 15 1999

Status

approved