A016009 a(n) = (tau(n^13)+12)/13.

1, 2, 2, 3, 2, 16, 2, 4, 3, 16, 2, 30, 2, 16, 16, 5, 2, 30, 2, 30, 16, 16, 2, 44, 3, 16, 4, 30, 2, 212, 2, 6, 16, 16, 16, 57, 2, 16, 16, 44, 2, 212, 2, 30, 30, 16, 2, 58, 3, 30, 16, 30, 2, 44, 16, 44, 16, 16, 2, 408, 2, 16, 30, 7, 16, 212, 2, 30, 16, 212, 2, 84, 2, 16

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, A016008, A016012.

Programs

Mathematica

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

PARI

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

Extensions

Definition corrected by Vladeta Jovovic, Sep 03 2005