OFFSET
1,1
MATHEMATICA
With[{nn=20}, Sort[Select[Flatten[Table[FromDigits[Join[Table[2, {i}], Table[3, {j}]]], {i, 0, nn}, {j, 0, nn}]], PrimeQ]]] (* Harvey P. Dale, Jan 30 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paul Curtz, Jun 05 2008
EXTENSIONS
Entry revised by Ray Chandler and N. J. A. Sloane, Aug 14 2008
STATUS
approved