OFFSET
1,1
COMMENTS
The last term is a(1610)=98731.
LINKS
Zak Seidov, Table of n, a(n) for n = 1..1610
MATHEMATICA
f[n_] := Block[{d = DigitCount@ n}, And[Plus @@ d == 5, Last@ d == 0, Max@ d == 1, PrimeQ@ n]]; Select[Range[10000, 99999], f] (* or *) Select[FromDigits /@ Permutations[Range[1, 9], {5}], PrimeQ] (* Michael De Vlieger, Mar 12 2015 *)
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Zak Seidov, Mar 12 2015
STATUS
approved