%I #14 Jan 27 2025 02:27:12
%S 1,2,2,3,2,13,2,4,3,13,2,24,2,13,13,5,2,24,2,24,13,13,2,35,3,13,4,24,
%T 2,134,2,6,13,13,13,45,2,13,13,35,2,134,2,24,24,13,2,46,3,24,13,24,2,
%U 35,13,35,13,13,2,255,2,13,24,7,13,134,2,24,13,134,2,66,2,13
%N a(n) = (tau(n^10)+9)/10.
%H Antti Karttunen, <a href="/A016006/b016006.txt">Table of n, a(n) for n = 1..10000</a>
%t a[n_] := (DivisorSigma[0, n^10] + 9)/10; Array[a, 100] (* _Amiram Eldar_, Jan 27 2025 *)
%o (PARI)
%o A016006(n) = (numdiv(n^10)+9)/10;
%o for(n=1, 10000, write("b016006.txt", n, " ", A016006(n)));
%o \\ _Antti Karttunen_, Jan 17 2017
%Y Cf. A000005, A015996, A015999, A016001, A016002, A016003, A016005, A016007, A016008, A016009, A016012.
%K nonn
%O 1,2
%A _Robert G. Wilson v_
%E Definition corrected by _Vladeta Jovovic_, Sep 03 2005