OFFSET
1,1
LINKS
Sebastian Petzelberger, Table of n, a(n) for n = 1..10000
C. Rivera, PP&P Puzzle 24: Primes in several bases
MATHEMATICA
Select[Prime[Range@ 1800], Count[PrimeQ /@ Table[FromDigits[IntegerDigits[#, i]], {i, 2, 10}], True] == 5 &] (* Michael De Vlieger, Mar 20 2015, after Harvey P. Dale at A052032 *)
PROG
(PARI) lista(nn, nb=5) = {forprime(p=2, nn, if (sum(b=2, 10, isprime(subst(Pol(digits(p, b)), x, 10))) == nb, print1(p, ", ")); ); } \\ Michel Marcus, Mar 21 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Dec 15 1999
STATUS
approved