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

%I #20 Jan 27 2025 02:26:58

%S 1,2,2,3,2,14,2,4,3,14,2,26,2,14,14,5,2,26,2,26,14,14,2,38,3,14,4,26,

%T 2,158,2,6,14,14,14,49,2,14,14,38,2,158,2,26,26,14,2,50,3,26,14,26,2,

%U 38,14,38,14,14,2,302,2,14,26,7,14,158,2,26,14,158,2,72,2,14

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

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

%p A016007:=n->(numtheory[tau](n^11)+10)/11: seq(A016007(n), n=1..160); # _Wesley Ivan Hurt_, Apr 26 2017

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

%o (PARI)

%o A016007(n) = (numdiv(n^11)+10)/11;

%o for(n=1, 10000, write("b016007.txt", n, " ", A016007(n)));

%o \\ _Antti Karttunen_, Jan 17 2017

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

%K nonn

%O 1,2

%A _Robert G. Wilson v_

%E Definition corrected by _Vladeta Jovovic_, Sep 03 2005