OFFSET
1,2
LINKS
FORMULA
PROG
(PARI)
A348717(n) = if(1==n, 1, my(f = factor(n), k = primepi(f[1, 1])-1); for (i=1, #f~, f[i, 1] = prime(primepi(f[i, 1])-k)); factorback(f));
memoA354186 = Map();
CROSSREFS
KEYWORD
sign
AUTHOR
Antti Karttunen, May 19 2022
STATUS
approved