OFFSET
1,1
LINKS
Simon R Blow, Table of n, a(n) for n = 1..5000
EXAMPLE
MAPLE
q:= n-> n>=add(i[1]*i[2], i=ifactors(n)[2])^2:
select(q, [$2..800])[]; # Alois P. Heinz, Jun 23 2023
MATHEMATICA
Select[Range[2, 700], # >= (Plus @@ Times @@@ FactorInteger[#])^2 &] (* Amiram Eldar, Jun 24 2023 *)
PROG
(PARI) isok(n) = ((p=factor(n))[, 1]~*p[, 2])^2 <= n \\ Thomas Scheuerle, Jun 23 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Simon R Blow, Jun 23 2023
STATUS
approved