OFFSET
1,2
LINKS
FORMULA
PROG
(PARI)
A064989(n) = my(f = factor(n)); for(i=1, #f~, if((2 == f[i, 1]), f[i, 1] = 1, f[i, 1] = precprime(f[i, 1]-1))); factorback(f);
(Scheme)
(Scheme)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 30 2014
STATUS
approved
