A262837 (3,7)-primes (defined in Comments).

2, 3, 5, 7, 11, 19, 23, 29, 37, 43, 47, 53, 61, 67, 71, 79, 89, 103, 107, 127, 137, 149, 151, 173, 179, 191, 197, 211, 229, 233, 257, 271, 277, 281, 331, 337, 347, 373, 379, 383, 397, 401, 439, 443, 457, 467, 487, 499, 523, 547, 557, 571, 599, 607, 653, 673

Offset: 1

Author

Clark Kimberling, Nov 09 2015

Keywords

• nonn
• easy
• base

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

Crossrefs

Cf. A000040, A231477, A262838, A262829.

Programs

Mathematica

{b1, b2} = {3, 7};
u = Select[Prime[Range[6000]], PrimeQ[FromDigits[IntegerDigits[#, b1], b2]] &];  (* A231477 *)
v = Select[Prime[Range[6000]], PrimeQ[FromDigits[IntegerDigits[#, b2], b1]] &];  (* A262837 *)
w = Intersection[u, v]; (* A262838 *)
(* Peter J. C. Moses, Sep 27 2015 *)