OFFSET
1,2
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
PROG
(PARI) A389092(n) = { my(f=factor(n)); for(k=1, #f~, if(2==f[k, 1], f[k, 1]=3, for(i=1+primepi(f[k, 1]), oo, if(2==((f[k, 1]+prime(i))%4), f[k, 1]=prime(i); break)))); factorback(f); };
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Antti Karttunen, Sep 24 2025
STATUS
approved
