OFFSET
1,6
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..10000
MATHEMATICA
Join[{1}, Table[Last[Select[Divisors[n], # < Sqrt[n] && SquareFreeQ[#] &]], {n, 2, 100}]]
PROG
(PARI) a(n) = {my(m=1); fordiv(n, d, if(d^2 < n && issquarefree(d), m=max(m, d))); m} \\ Andrew Howroyd, Oct 11 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Oct 11 2023
STATUS
approved