OFFSET
1,2
LINKS
PROG
(PARI) A336315(n) = if(1==n, n, my(p=apply(primepi, factor(n)[, 1]~), m=1+p[1]); for(i=2, #p, m *= (1+p[i]-p[i-1])); (m));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 18 2020
STATUS
approved