OFFSET
1,1
COMMENTS
Terms are squarefree and composite, i.e., in A120944.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
With[{nn = 2^12}, Map[Times @@ FactorInteger[#][[All, 1]] &, Rest@ Select[Union@ Flatten@ Table[a^2*b^3, {b, nn^(1/3)}, {a, Sqrt[nn/b^3]}], Not @* PrimePowerQ]] ]
PROG
(PARI) apply(x->factorback(factorint(x)[, 1]), select(x->((x>1) && ispowerful(x) && !isprimepower(x)), [1..5000])) \\ Michel Marcus, Sep 20 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael De Vlieger, Sep 19 2023
STATUS
approved