A090714 Primes which are also prime if their base 19 representation is interpreted as a base 10 number.

2, 3, 5, 7, 41, 47, 79, 83, 383, 419, 457, 463, 503, 541, 769, 839, 877, 1103, 1109, 1181, 1187, 1453, 1483, 1523, 1559, 1907, 1979, 2243, 2281, 2593, 2663, 2897, 2927, 3041, 3313, 3347, 3389, 6917, 7229, 7603, 7607, 7639, 7723, 7753, 7759, 7949, 8363, 8369

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Example

41 is prime; in base 19 it is written "23" and the base 10 number 23 is also prime.

Mathematica

b19Q[n_]:= Module[{idn19=IntegerDigits[n, 19]}, Max[idn19]<10&&PrimeQ[FromDigits[idn19]]]; Select[Prime[Range[PrimePi[9000]]], b19Q] (* Vincenzo Librandi, Apr 18 2013 *)

Crossrefs

Sequence in context: A336413 A110363 A235395 * A048400 A286319 A090716

Adjacent sequences: A090711 A090712 A090713 * A090715 A090716 A090717

Keyword

base,nonn

Author

Cino Hilliard, Jan 18 2004

Extensions

Edited by Jens Kruse Andersen, May 04 2008

Status

approved