A016006 a(n) = (tau(n^10)+9)/10.

1, 2, 2, 3, 2, 13, 2, 4, 3, 13, 2, 24, 2, 13, 13, 5, 2, 24, 2, 24, 13, 13, 2, 35, 3, 13, 4, 24, 2, 134, 2, 6, 13, 13, 13, 45, 2, 13, 13, 35, 2, 134, 2, 24, 24, 13, 2, 46, 3, 24, 13, 24, 2, 35, 13, 35, 13, 13, 2, 255, 2, 13, 24, 7, 13, 134, 2, 24, 13, 134, 2, 66, 2, 13

Offset: 1

Author

Robert G. Wilson v

Keywords

• nonn

Links

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

Crossrefs

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

Programs

Mathematica

a[n_] := (DivisorSigma[0, n^10] + 9)/10; Array[a, 100] (* Amiram Eldar, Jan 27 2025 *)

PARI

A016006(n) = (numdiv(n^10)+9)/10;
for(n=1, 10000, write("b016006.txt", n, " ", A016006(n)));
\\ Antti Karttunen, Jan 17 2017

Extensions

Definition corrected by Vladeta Jovovic, Sep 03 2005