A016012 a(n) = (tau(n^n)+n-1)/n.

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

Author

Robert G. Wilson v

Keywords

• nonn
• look

Links

• Antti Karttunen, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000005, A015996, A015999, A016001, A016002, A016003, A016005, A016006, A016007, A016008, A016009, A016025.

Programs

Mathematica

f[j_, n_] := (DivisorSigma[0, n^j] + j - 1)/j; Table[ f[n, n], {n, 96}]

PARI

A016012(n) = (numdiv(n^n)+n-1)/n;
for(n=1, 10000, write("b016012.txt", n, " ", A016012(n)));
\\ Antti Karttunen, Jan 17 2017

Extensions

Definition corrected by Vladeta Jovovic, Sep 03 2005