A062011 a(n) = 2*tau(n) = 2*A000005(n).
2, 4, 4, 6, 4, 8, 4, 8, 6, 8, 4, 12, 4, 8, 8, 10, 4, 12, 4, 12, 8, 8, 4, 16, 6, 8, 8, 12, 4, 16, 4, 12, 8, 8, 8, 18, 4, 8, 8, 16, 4, 16, 4, 12, 12, 8, 4, 20, 6, 12, 8, 12, 4, 16, 8, 16, 8, 8, 4, 24, 4, 8, 12, 14, 8, 16, 4, 12, 8, 16, 4, 24, 4, 8, 12, 12, 8, 16, 4, 20, 10, 8, 4, 24, 8, 8, 8, 16
Offset: 1
Links
- Harry J. Smith, Table of n, a(n) for n = 1..1000
- Omar E. Pol, Illustration of initial terms
- Index entries for sequences related to groups
Programs
-
Mathematica
A062011[n_] := 2*DivisorSigma[0,n]; Array[A062011,50] (* Enrique Pérez Herrero, Jul 15 2011 *)
-
PARI
for (n=1, 1000, write("b062011.txt", n, " ", 2*numdiv(n))) \\ Harry J. Smith, Jul 29 2009
Formula
L.g.f.: -log(Product_{k>=1} (1 - x^k)^(2/k)) = Sum_{n>=1} a(n)*x^n/n. - Ilya Gutkovskiy, Mar 18 2018
Extensions
More terms from Vladeta Jovovic, Jul 14 2001
Edited by N. J. A. Sloane, Sep 20 2018, replacing old definition (which was of course correct) with a simple formula.
Comments