A140482 a(n) = 2*n + tau(n).

3, 6, 8, 11, 12, 16, 16, 20, 21, 24, 24, 30, 28, 32, 34, 37, 36, 42, 40, 46, 46, 48, 48, 56, 53, 56, 58, 62, 60, 68, 64, 70, 70, 72, 74, 81, 76, 80, 82, 88, 84, 92, 88, 94, 96, 96, 96, 106, 101, 106, 106, 110, 108, 116, 114, 120, 118, 120, 120, 132, 124, 128, 132, 135, 134, 140

Offset

1,1

Links

Table of n, a(n) for n=1..66.

Mathematica

a[n_] := 2*n + DivisorSigma[0, n]; Array[a, 100] (* Amiram Eldar, Apr 07 2024 *)

Prog

(PARI) a(n) = 2*n + numdiv(n); \\ Amiram Eldar, Apr 07 2024

Crossrefs

Cf. A000005 (tau), A140481, A062249.

Sequence in context: A277732 A026604 A013642 * A212451 A244223 A284534

Adjacent sequences: A140479 A140480 A140481 * A140483 A140484 A140485

Keyword

nonn,easy

Author

N. J. A. Sloane, Jun 29 2008

Status

approved