OFFSET
3,1
COMMENTS
LINKS
Dmitrii Ubskii, Table of n, a(n) for n = 3..500
EXAMPLE
In base-12 35B7 (6043 in base-10) is prime, and all of 35B, 357, 3B7, 5B7, 35, 3B, 37, 5B, 57, B7, 3, 5, B, and 7 are prime.
MATHEMATICA
a[b_] := Block[{m, p, r}, p = Select[Range[b-1], PrimeQ]; m = 0; r[n_] := Block[{}, m = Max[m, n]; r /@ Select[n*b+p, PrimeQ[#] && And @@ PrimeQ /@ (FromDigits[#, b] & /@ Subsets[IntegerDigits[#, b], {2, Infinity}]) &]; ]; r@0; m]; a /@ Range[3, 100] (* Giovanni Resta, Feb 21 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Dmitrii Ubskii, Feb 17 2017
STATUS
approved