A082100 a(n) = A001157(A002110(n)), sum of squares of divisors of primorial numbers.

5, 50, 1300, 65000, 7930000, 1348100000, 390949000000, 141523538000000, 75007475140000000, 63156294067880000000, 60756354893300560000000, 83236206203821767200000000, 140003298834828212430400000000

Offset: 1

Author

Labos Elemer, Apr 14 2003

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..195

Crossrefs

Cf. A001157, A002110.

Programs

Mathematica

s={}; p=1; prod=1; Do[prod *= (p = NextPrime@p); AppendTo[s, DivisorSigma[2, prod]], {13}]; s (* Amiram Eldar, Jul 31 2019 *)
Table[DivisorSigma[2,p],{p,FoldList[Times,Prime[Range[20]]]}] (* Harvey P. Dale, Mar 11 2023 *)