OFFSET
1,2
LINKS
FORMULA
PROG
(PARI) A354095(n) = { my(f=factor(sigma(n))); for(k=1, #f~, if(2==(f[k, 1]%3), if(2==f[k, 1], f[k, 1]--, forstep(i=primepi(f[k, 1])-1, 0, -1, if(2==(prime(i)%3), f[k, 1]=prime(i); break))))); factorback(f); };
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Antti Karttunen, May 17 2022
STATUS
approved