%I #18 Mar 23 2015 08:05:27
%S 5,9241,17791,330289,391231,1005481,1210483,2378143,2469241,2779939,
%T 2840041,6817501,8320831,9865711,10871407,11087191,12259603,13645393,
%U 15665833,16707883,17694463,25751863,27794287,31488481
%N Primes in base 10 that remain primes in seven bases b, 2<=b<=10, expansions interpreted as decimal numbers.
%H Sebastian Petzelberger, <a href="/A052027/b052027.txt">Table of n, a(n) for n = 1..1000</a>
%H Carlos Rivera, <a href="http://www.primepuzzles.net/puzzles/puzz_024.htm">PP&P Puzzle 24: Primes in several bases</a>
%t Select[Prime[Range@ 100000], Count[PrimeQ /@ Table[FromDigits[IntegerDigits[#, i]], {i, 2, 10}], True] == 7 &] (* _Michael De Vlieger_, Mar 21 2015, after _Harvey P. Dale_ at A052032 *)
%Y Cf. A052026, A038537, A052027-A052033, A084482, A236356.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Dec 15 1999
%E Missing terms 2378143 and 2469241 added by _Sebastian Petzelberger_, Mar 21 2015
|