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,1

Links

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

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 *)

Crossrefs

Cf. A001157, A002110.

Sequence in context: A051893 A354685 A247951 * A299353 A180976 A305844

Adjacent sequences: A082097 A082098 A082099 * A082101 A082102 A082103

Keyword

nonn

Author

Labos Elemer, Apr 14 2003

Status

approved