|
%I #14 Mar 21 2015 01:51:33
%S 263,269,347,397,431,461,479,499,569,599,607,677,683,719,769,797,821,
%T 929,941,1019,1031,1049,1051,1061,1069,1103,1181,1223,1229,1237,1297,
%U 1307,1367,1399,1409,1439,1453,1487,1489,1523,1553,1559,1571,1619,1637
%N Primes base 10 that are never primes in any smaller base b, 2<=b<10, expansions interpreted as decimal numbers.
%H Sebastian Petzelberger, <a href="/A052033/b052033.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>
%t Select[Prime[Range@ 265], Count[PrimeQ /@ Table[FromDigits[IntegerDigits[#, i]], {i, 2, 9}], True] == 0 &] (* _Michael De Vlieger_, Mar 20 2015 after _Harvey P. Dale_ at A052032 *)
%Y Cf. A038537, A052026-A052033, A236174, A236437, A235354, A235377.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Dec 15 1999
|
