OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
30 = 2*3*5. 2*3 is > 5, so 30 is not in the sequence because 30 is mutinous (see A027854).
27 = 3^3. 27/3^3 is < 3, so 27 is antimutinous. But 27 is a power of a prime, so 27 is not in the sequence.
However, 20 = 2^2 * 5^1. And 20/5^1 is < 5, so 20 is antimutinous. Also, 20 is not a power of a prime. So 20 is in the sequence.
MATHEMATICA
a = {}; For[n = 2, n < 200, n++, If[ !PrimeQ[n], If[ ! Length[FactorInteger[n]] == 1, b = FactorInteger[n]; m = 0; For[j = 1, j < Length[b] + 1, j++, If[b[[j, 1]]^b[[j, 2]] > m, m = b[[j, 1]]^b[[j, 2]]]; If[n/m < FactorInteger[m][[1, 1]], AppendTo[a, n]]]]]]; a (* Stefan Steinerberger, Nov 20 2007 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Nov 19 2007
EXTENSIONS
More terms from Stefan Steinerberger, Nov 20 2007
STATUS
approved