A083271 a(n) = n*tau(n) + 1.
2, 5, 7, 13, 11, 25, 15, 33, 28, 41, 23, 73, 27, 57, 61, 81, 35, 109, 39, 121, 85, 89, 47, 193, 76, 105, 109, 169, 59, 241, 63, 193, 133, 137, 141, 325, 75, 153, 157, 321, 83, 337, 87, 265, 271, 185, 95, 481, 148, 301, 205, 313, 107, 433, 221, 449, 229, 233, 119, 721
Offset: 1
Programs
-
Mathematica
a[x_] := x*DivisorSigma[0, x]+1; Table[a[w], {w, 1, 100}] -
PARI
a(n) = n*numdiv(n) + 1; \\ Michel Marcus, Jun 04 2025
Formula
a(n) = A038040(n) + 1. - Torlach Rush, Feb 02 2019