%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