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

%I #17 Jan 27 2025 02:27:09

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

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

%U 41,15,41,15,15,2,353,2,15,28,7,15,184,2,28,15,184,2,78,2,15

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

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

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

%o (PARI)

%o A016008(n) = (numdiv(n^12)+11)/12;

%o for(n=1, 10000, write("b016008.txt", n, " ", A016008(n)));

%o \\ _Antti Karttunen_, Jan 17 2017

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

%K nonn

%O 1,2

%A _Robert G. Wilson v_

%E Definition corrected by _Vladeta Jovovic_, Sep 03 2005