%I #15 Dec 28 2024 10:19:08
%S 1,1,112,4832,39929032,6227388000,355687500698712,121674349040732800,
%T 26204303786955547121568,8844022735747817449795273936944,
%U 8243360285859647409507002537385024,13989390090648918627329493090109449081402880,33452526614068666040537953433982904696696861440000
%N Sum of divisors of prime(n)! - prime(n)# + 1.
%H Reinhard Zumkeller, <a href="/A103855/a103855.txt">p(n)! - p(n)# + 1</a>.
%F a(n) = A000203(A103855(n)).
%t 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 *)
%o (PARI) a(n) = sigma(prime(n)! - factorback(primes(n)) + 1); \\ _Jinyuan Wang_, Dec 28 2024
%Y Cf. A103855, A103858, A103859, A103895.
%K nonn
%O 1,3
%A _Reinhard Zumkeller_, Feb 20 2005