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,4

Links

Table of n, a(n) for n=1..75.

Mathematica

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

Crossrefs

Cf. A047814.

Sequence in context: A085562 A037282 A191558 * A179939 A163407 A023891

Adjacent sequences: A075080 A075081 A075082 * A075084 A075085 A075086

Keyword

easy,nonn,base

Author

Amarnath Murthy, Sep 11 2002

Extensions

More terms from David Wasserman, Jan 16 2005

Status

approved