OFFSET
1,1
COMMENTS
Equivalently, numbers k whose squarefree part, A007913(k), is smaller than their square part, A008833(k). - Peter Munn, Mar 26 2021
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Square Part.
Eric Weisstein's World of Mathematics, Squarefree Part.
MATHEMATICA
f[p_, e_] := If[OddQ[e], p, 1]; sqf[n_] := Times @@ (f @@@ FactorInteger[n]); Select[Range[320], sqf[#] < Sqrt[#] &] (* Amiram Eldar, Apr 02 2020 *)
PROG
(PARI) for(n=1, 200, if(core(n)<sqrt(n), print1(n, ", ")))
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Apr 10 2002
STATUS
approved