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,2

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000005, A015996, A015999, A016001, A016002, A016005-A016009, A016012.

Sequence in context: A016002 A098189 A162733 * A087139 A342607 A226422

Adjacent sequences: A016000 A016001 A016002 * A016004 A016005 A016006

Keyword

nonn

Author

Robert G. Wilson v

Extensions

Definition corrected by Vladeta Jovovic, Sep 03 2005

Status

approved