A262831 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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.