OFFSET
1,2
LINKS
FORMULA
PROG
(PARI)
A003961(n) = my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); \\ This function from Michel Marcus
for(n=1, 10001, write("b245708.txt", n, " ", A245708(n)))
(Scheme, two alternative implementations)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 30 2014
STATUS
approved