OFFSET
1,4
MATHEMATICA
Table[Max[Select[FromDigits/@Permutations[IntegerDigits[n]], CompositeQ]], {n, 80}]/.(-\[Infinity]->0) (* Harvey P. Dale, Feb 14 2016 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Amarnath Murthy, Sep 11 2002
EXTENSIONS
More terms from David Wasserman, Jan 16 2005
STATUS
approved