A052032 Primes base 10 that remain prime in one (and only one) other base b, 2<=b<10, expansions interpreted as decimal numbers.

41, 53, 73, 107, 113, 131, 137, 139, 167, 173, 223, 233, 239, 257, 271, 293, 317, 389, 401, 467, 491, 509, 521, 557, 593, 641, 661, 691, 701, 739, 761, 809, 827, 829, 839, 853, 859, 863, 881, 887, 911, 937, 971, 977, 991, 1013, 1063, 1109, 1129, 1151, 1153

Offset

1,1

Links

Sebastian Petzelberger, Table of n, a(n) for n = 1..10000 [This replaces an earlier b-file computed by Harvey P. Dale]

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

Mathematica

Select[Prime[Range[200]], Count[PrimeQ/@Table[FromDigits[ IntegerDigits[ #, i]], {i, 2, 9}], True]==1&] (* Harvey P. Dale, Oct 13 2012 *)

Crossrefs

Cf. A038537, A052026-A052033.

Sequence in context: A349779 A261259 A168348 * A176924 A115663 A367421

Adjacent sequences: A052029 A052030 A052031 * A052033 A052034 A052035

Keyword

nonn,base

Author

Patrick De Geest, Dec 15 1999

Extensions

Definition clarified by Harvey P. Dale, Oct 13 2012

Status

approved