OFFSET
1,2
EXAMPLE
a(2)=2 because 12 and 21 (written in base 9) are primes (11 and 19).
MATHEMATICA
c[x_] := Module[{},
Length[Select[Permutations[x],
First[#] != 0 && PrimeQ[FromDigits[#, 9]] &]]];
A065850[n_] := Module[{i},
Return[Max[Map[c, DeleteDuplicatesBy[Tuples[Range[0, 8], n],
Table[Count[#, i], {i, 0, 8}] &]]]]];
Table[A065850[n], {n, 1, 7}] (* Robert Price, Mar 30 2019 *)
CROSSREFS
KEYWORD
base,more,nonn
AUTHOR
Sascha Kurz, Nov 24 2001
EXTENSIONS
a(10)-a(11) from Sean A. Irvine, Sep 06 2009
Definition corrected by David A. Corneth, Apr 23 2016
a(12) from Michael S. Branicky, Jul 03 2024
a(13) from Michael S. Branicky, Jul 09 2024
STATUS
approved