A016012 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

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

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