A262831 (5,2)-primes (defined in Comments).

2, 3, 5, 11, 13, 23, 31, 41, 43, 53, 61, 71, 73, 83, 101, 103, 113, 131, 151, 163, 173, 181, 191, 223, 233, 241, 251, 263, 281, 293, 311, 313, 331, 373, 383, 401, 421, 433, 443, 461, 463, 491, 521, 523, 541, 563, 593, 631, 641, 653, 673, 683, 691, 701, 733

Offset

1,1

Comments

Let V = (b(1), b(2), ..., b(k)), where k > 1 and b(i) are distinct integers > 1 for j = 1..k. Call p a V-prime if the digits of p in base b(1) spell a prime in each of the bases b(2), ..., b(k).

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Mathematica

{b1, b2} = {2, 5};
u = Select[Prime[Range[6000]], PrimeQ[FromDigits[IntegerDigits[#, b1], b2]] &];
(* A235475 *)
v = Select[Prime[Range[6000]], PrimeQ[FromDigits[IntegerDigits[#, b2], b1]] &];
(* A262831 *)
w = Intersection[u, v]; (* A262832 *)
(* Peter J. C. Moses, Sep 27 2015 *)

Crossrefs

Cf. A000040, A262729, A262832, A262833.

Sequence in context: A180640 A128425 A175565 * A036960 A133783 A036958

Adjacent sequences: A262828 A262829 A262830 * A262832 A262833 A262834

Keyword

nonn,easy,base

Author

Clark Kimberling, Oct 31 2015

Status

approved