OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
71 is prime; in base 31 it is written "29" and the base 10 number 29 is also prime.
MATHEMATICA
b31Q[n_]:=Module[{idn31=IntegerDigits[n, 31]}, Max[idn31] <10&&PrimeQ[FromDigits[idn31]]]; Select[Prime[Range [PrimePi[9000]]], b31Q] (* Harvey P. Dale, Mar 19 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Cino Hilliard, Jan 18 2004
EXTENSIONS
Edited by Jens Kruse Andersen, May 04 2008
Changed offset from 2 to 1 by Vincenzo Librandi, Apr 18 2013
STATUS
approved