login
A016012
a(n) = (tau(n^n)+n-1)/n.
13
1, 2, 2, 3, 2, 9, 2, 4, 3, 13, 2, 28, 2, 17, 18, 5, 2, 40, 2, 44, 24, 25, 2, 77, 3, 29, 4, 60, 2, 994, 2, 6, 36, 37, 38, 149, 2, 41, 42, 125, 2, 1894, 2, 92, 94, 49, 2, 198, 3, 104, 54, 108, 2, 167, 58, 173, 60, 61, 2, 7505, 2, 65, 130, 7, 68, 4558, 2, 140, 72, 5114
OFFSET
1,2
LINKS
MATHEMATICA
f[j_, n_] := (DivisorSigma[0, n^j] + j - 1)/j; Table[ f[n, n], {n, 96}]
PROG
(PARI)
A016012(n) = (numdiv(n^n)+n-1)/n;
for(n=1, 10000, write("b016012.txt", n, " ", A016012(n)));
\\ Antti Karttunen, Jan 17 2017
KEYWORD
nonn,look
EXTENSIONS
Definition corrected by Vladeta Jovovic, Sep 03 2005
STATUS
approved