%I #14 Mar 21 2015 01:53:10
%S 11,13,17,29,31,47,59,61,83,89,97,101,109,149,151,179,181,197,227,241,
%T 251,281,331,349,353,359,373,383,419,421,439,449,457,487,503,541,547,
%U 563,587,601,617,659,673,709,727,733,743,751,773,811,823,877,953,967
%N Primes base 10 that remain primes in three bases b, 2<=b<=10, expansions interpreted as decimal numbers.
%H Sebastian Petzelberger, <a href="/A052031/b052031.txt">Table of n, a(n) for n = 1..10000</a>
%H C. Rivera, <a href="http://www.primepuzzles.net/puzzles/puzz_024.htm">PP&P Puzzle 24: Primes in several bases</a>
%e 11 is 23_4, 13_8 and 11_10.
%t Select[Prime[Range@ 165], Count[PrimeQ /@ Table[FromDigits[IntegerDigits[#, i]], {i, 2, 10}], True] == 3 &] (* _Michael De Vlieger_, Mar 20 2015 after _Harvey P. Dale_ at A052032 *)
%Y Cf. A038537, A052026-A052033.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Dec 15 1999