OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= n -> n > min(numtheory:-factorset(n))^3:
select(filter, [$2..200]); # Robert Israel, Aug 11 2020
PROG
(Haskell)
a088381 n = a088381_list !! (n-1)
a088381_list = filter f [1..] where
f x = p ^ 2 < div x p where p = a020639 x
-- Reinhard Zumkeller, Jan 08 2015
(PARI) isok(n) = n > factor(n)[1, 1]^3; \\ Michel Marcus, Jan 08 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Sep 28 2003
STATUS
approved