A075083 Largest composite number formed by permuting the digits of n, or 0 if no such number exists.

0, 0, 0, 4, 0, 6, 0, 8, 9, 10, 0, 21, 0, 14, 51, 16, 0, 81, 91, 20, 21, 22, 32, 42, 52, 62, 72, 82, 92, 30, 0, 32, 33, 34, 35, 63, 0, 38, 93, 40, 14, 42, 34, 44, 54, 64, 74, 84, 94, 50, 51, 52, 35, 54, 55, 65, 75, 85, 95, 60, 16, 62, 63, 64, 65, 66, 76, 86, 96, 70, 0, 72, 0, 74, 75

Offset: 1

Author

Amarnath Murthy, Sep 11 2002

Keywords

• easy
• nonn
• base

Crossrefs

Cf. A047814.

Programs

Mathematica

Table[Max[Select[FromDigits/@Permutations[IntegerDigits[n]], CompositeQ]],{n,80}]/.(-\[Infinity]->0) (* Harvey P. Dale, Feb 14 2016 *)

Extensions

More terms from David Wasserman, Jan 16 2005