OFFSET
1,1
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..797
EXAMPLE
9241 is in the sequence because it is prime. Its representation in base (2):{10010000011001}, base (3):{110200021}, base (4):{2100121} and base (5):{243431}, when read in decimal are also prime.
MATHEMATICA
t={}; n=1; While[Length[t]<100, n=NextPrime[n]; If[PrimeQ[FromDigits[IntegerDigits[n, 2]]]&&PrimeQ[FromDigits[IntegerDigits[n, 3]]] &&PrimeQ[FromDigits[IntegerDigits[n, 4]]]&&PrimeQ[FromDigits[IntegerDigits[n, 5]]], ApendTo[t, n]]] t (*K. D. Bajpai*)
PROG
(PARI)
default(primelimit, 2^31)
base_b(n, b) = {
my(s=[], r, x=10);
while(n>0,
r = n%b;
n = n\b;
s = concat(r, s)
);
eval(Pol(s))
}
A236512(maxp) = {
forprime(p=2, maxp,
if(isprime(base_b(p, 2)) &&
isprime(base_b(p, 3)) &&
isprime(base_b(p, 4)) &&
isprime(base_b(p, 5)), print1(p, ", ")
)
)
}
\\ Colin Barker, Jan 29 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
K. D. Bajpai, Jan 27 2014
STATUS
approved