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

%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