OFFSET
1,2
COMMENTS
Numbers k such that psi(rad(k)) > psi(rad(m)) for all m < k, where psi() is the Dedekind psi function (A001615) and rad() is the squarefree kernel (A007947).
Numbers k such that Sum_{d|k} mu(d)^2*d > Sum_{d|m} mu(d)^2*d for all m < k, where mu() is the Moebius function (A008683).
All terms are squarefree. - Robert Israel, Apr 19 2017
LINKS
MAPLE
ssd:= n -> convert(select(numtheory:-issqrfree, numtheory:-divisors(n)), `+`):
M:= 0: A:= NULL:
for n from 1 to 10^5 do
r:= ssd(n);
if r > M then M:= r; A:= A, n fi
od:
A; # Robert Israel, Apr 19 2017
MATHEMATICA
mx = 0; t = {}; Do[u = DivisorSum[n, # &, SquareFreeQ[#] &]; If[u > mx, mx = u; AppendTo[t, n]], {n, 6000}]; t
PROG
(Python)
from sympy.ntheory.factor_ import core
from sympy import divisors
def s(n): return sum(list(filter(lambda i: core(i) == i, divisors(n))))
def ok(n):
m=1
while m<n:
if not s(n)>s(m): return False
m+=1
return True # Indranil Ghosh, Apr 16 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Apr 14 2017
STATUS
approved