A016008 a(n) = (tau(n^12)+11)/12.

1, 2, 2, 3, 2, 15, 2, 4, 3, 15, 2, 28, 2, 15, 15, 5, 2, 28, 2, 28, 15, 15, 2, 41, 3, 15, 4, 28, 2, 184, 2, 6, 15, 15, 15, 53, 2, 15, 15, 41, 2, 184, 2, 28, 28, 15, 2, 54, 3, 28, 15, 28, 2, 41, 15, 41, 15, 15, 2, 353, 2, 15, 28, 7, 15, 184, 2, 28, 15, 184, 2, 78, 2, 15

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

Programs

Mathematica

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

PARI

A016008(n) = (numdiv(n^12)+11)/12;
for(n=1, 10000, write("b016008.txt", n, " ", A016008(n)));
\\ Antti Karttunen, Jan 17 2017

Extensions

Definition corrected by Vladeta Jovovic, Sep 03 2005