OFFSET
0,3
LINKS
Dmitry Kamenetsky, Table of n, a(n) for n = 0..1000
MATHEMATICA
Flatten[Position[Sort[Flatten[Table[FromDigits/@Permutations[Join[{3}, PadRight[{}, n, 1]]], {n, 0, 50}]]], _?PrimeQ]]-1 (* Harvey P. Dale, Jul 16 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Dmitry Kamenetsky, Jul 10 2010
STATUS
approved