A016003 a(n) = (tau(n^8)+7)/8.

1, 2, 2, 3, 2, 11, 2, 4, 3, 11, 2, 20, 2, 11, 11, 5, 2, 20, 2, 20, 11, 11, 2, 29, 3, 11, 4, 20, 2, 92, 2, 6, 11, 11, 11, 37, 2, 11, 11, 29, 2, 92, 2, 20, 20, 11, 2, 38, 3, 20, 11, 20, 2, 29, 11, 29, 11, 11, 2, 173, 2, 11, 20, 7, 11, 92, 2, 20, 11, 92, 2, 54, 2, 11, 20, 20

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, A016005-A016009, A016012.

Programs

Mathematica

Table[(DivisorSigma[0,n^8]+7)/8,{n,80}] (* Harvey P. Dale, Sep 22 2020 *)

PARI

A016003(n) = (numdiv(n^8)+7)/8;
for(n=1, 10000, write("b016003.txt", n, " ", A016003(n)));
\\ Antti Karttunen, Jan 17 2017

Extensions

Definition corrected by Vladeta Jovovic, Sep 03 2005