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

Author

Patrick De Geest, Dec 15 1999

Keywords

• nonn
• base

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

Crossrefs

Cf. A038537, A052026-A052033.

Programs

Mathematica

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

Extensions

Definition clarified by Harvey P. Dale, Oct 13 2012