OFFSET
1,2
COMMENTS
Repeated application of tau (number of divisors) and sigma (sum of divisors).
LINKS
MAPLE
with(numtheory) : A163105 := proc(n) tau(sigma(tau(n))) ; end: seq(A163105(n), n=1..120) ; # R. J. Mathar, Jul 27 2009
MATHEMATICA
With[{s = DivisorSigma}, s[0, s[1, s[0, Range[100]]]]] (* Paolo Xausa, Oct 07 2024 *)
PROG
(PARI) A163105(n) = numdiv(sigma(numdiv(n))); \\ Antti Karttunen, Jul 23 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Jul 20 2009
EXTENSIONS
More terms from R. J. Mathar, Jul 27 2009
Name edited by Antti Karttunen, Jul 23 2017
STATUS
approved