A016001 a(n) = (tau(n^6)+5)/6.

1, 2, 2, 3, 2, 9, 2, 4, 3, 9, 2, 16, 2, 9, 9, 5, 2, 16, 2, 16, 9, 9, 2, 23, 3, 9, 4, 16, 2, 58, 2, 6, 9, 9, 9, 29, 2, 9, 9, 23, 2, 58, 2, 16, 16, 9, 2, 30, 3, 16, 9, 16, 2, 23, 9, 23, 9, 9, 2, 107, 2, 9, 16, 7, 9, 58, 2, 16, 9, 58, 2, 42, 2, 9, 16, 16, 9, 58, 2, 30, 5, 9, 2, 107, 9

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, A016002, A016003, A016005, A016006, A016007, A016008, A016009, A016012.

Programs

Mathematica

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

PARI

A016001(n) = (numdiv(n^6)+5)/6;
for(n=1, 10000, write("b016001.txt", n, " ", A016001(n)));
\\ Antti Karttunen, Jan 17 2017

Extensions

Definition corrected by Vladeta Jovovic, Sep 03 2005