OFFSET
1,1
COMMENTS
PROG
(PARI) a(n) = my(k=1, f=factor(k)); while (issquare(k) || (sigma(f, 2*n) % sigma(f, n)), f=factor(k++)); k; \\ Michel Marcus, Jun 30 2024
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Mohammed Yaseen, Jun 30 2024
STATUS
approved