login
A082100
a(n) = A001157(A002110(n)), sum of squares of divisors of primorial numbers.
1
5, 50, 1300, 65000, 7930000, 1348100000, 390949000000, 141523538000000, 75007475140000000, 63156294067880000000, 60756354893300560000000, 83236206203821767200000000, 140003298834828212430400000000
OFFSET
1,1
LINKS
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
Sequence in context: A051893 A354685 A247951 * A299353 A180976 A305844
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 14 2003
STATUS
approved