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,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} = {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 *)

Crossrefs

Cf. A000040, A231477, A262838, A262829.

Sequence in context: A210186 A120628 A322471 * A143260 A246044 A039986

Adjacent sequences: A262834 A262835 A262836 * A262838 A262839 A262840

Keyword

nonn,easy,base

Author

Clark Kimberling, Nov 09 2015

Status

approved