OFFSET
1,1
EXAMPLE
MATHEMATICA
Select[Range[1000], (e = Last /@ FactorInteger[ # ]) != Sort[e, Greater] && Product[Prime[i]^e[[i]], {i, Length[e]}] != # &] (* Ray Chandler, Sep 23 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, May 21 2002
EXTENSIONS
Extended by Ray Chandler, Sep 23 2005
STATUS
approved