OFFSET
1,3
LINKS
R. Zumkeller, p(n)!-p(n )#+1
MATHEMATICA
Module[{nn=15, pr, pm}, pr=Prime[Range[nn]]!; pm=FoldList[Times, Prime[Range[nn]]]; DivisorSigma[1, #[[1]]-#[[2]]+1&/@Thread[{pr, pm}]]] (* Harvey P. Dale, Dec 18 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Feb 20 2005
STATUS
approved