OFFSET
0,2
EXAMPLE
PROG
(Magma) ah:=func<n|n ne 1 and forall{i:i in [1..#Factorisation(n)] |Factorisation(n)[i][2] gt 1} and Gcd([Factorisation(n)[i][2] :i in [1..#Factorisation(n)]]) eq 1>; a:=[]; for n in [0..37] do k:=1; while #[d:d in Divisors(k)| ah(d)] ne n do k:=k+1; end while; Append(~a, k); end for; a;
(PARI) is(n) = my(f=factor(n)[, 2]); n>9 && vecmin(f)>1 && gcd(f)==1; \\ A052486
a(n) = my(k=1); while (sumdiv(k, d, is(d)) != n, k++); k; \\ Michel Marcus, Dec 13 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Marius A. Burtea, Dec 04 2022
STATUS
approved