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

%I #17 Jan 27 2025 02:26:49

%S 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,

%T 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,

%U 44,16,44,16,16,2,408,2,16,30,7,16,212,2,30,16,212,2,84,2,16

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

%H Antti Karttunen, <a href="/A016009/b016009.txt">Table of n, a(n) for n = 1..10000</a>

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

%o (PARI)

%o A016009(n) = (numdiv(n^13)+12)/13;

%o for(n=1, 10000, write("b016009.txt", n, " ", A016009(n)));

%o \\ _Antti Karttunen_, Jan 17 2017

%Y Cf. A000005, A015996, A015999, A016001, A016002, A016003, A016005, A016006, A016007, A016008, A016012.

%K nonn,changed

%O 1,2

%A _Robert G. Wilson v_

%E Definition corrected by _Vladeta Jovovic_, Sep 03 2005