# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a082100
Showing 1-1 of 1

%I A082100 #13 Mar 11 2023 14:16:06
%S A082100 5,50,1300,65000,7930000,1348100000,390949000000,141523538000000,
%T A082100 75007475140000000,63156294067880000000,60756354893300560000000,
%U A082100 83236206203821767200000000,140003298834828212430400000000
%N A082100 a(n) = A001157(A002110(n)), sum of squares of divisors of primorial numbers.
%H A082100 Amiram Eldar, <a href="/A082100/b082100.txt">Table of n, a(n) for n = 1..195</a>
%t A082100 s={}; p=1; prod=1; Do[prod *= (p = NextPrime@p); AppendTo[s, DivisorSigma[2, prod]], {13}]; s (* _Amiram Eldar_, Jul 31 2019 *)
%t A082100 Table[DivisorSigma[2,p],{p,FoldList[Times,Prime[Range[20]]]}] (* _Harvey P. Dale_, Mar 11 2023 *)
%Y A082100 Cf. A001157, A002110.
%K A082100 nonn
%O A082100 1,1
%A A082100 _Labos Elemer_, Apr 14 2003

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE