%I A111218
%S A111218 1,8,8,36,8,64,8,120,36,64,8,288,8,64,64,330,8,288,8,288,64,64,8,960,36,
%T A111218 64,120,288,8,512,8,792,64,64,64,1296,8,64,64,960,8,512,8,288,288,64,8,
%U A111218 2640,36,288,64,288,8,960,64,960,64,64,8,2304,8,64,288,1716,64,512,8
%N A111218 d_8(n), tau_8(n), number of ordered factorizations of n as n = rstuvwxy
(8-factorizations).
%t A111218 tau[n_, 1] = 1; tau[n_, k_] := tau[n, k] = Plus @@ (tau[ #, k - 1] &
/@ Divisors[n]); Table[ tau[n, 8], {n, 67}] (from Robert G. Wilson
v (rgwv(at)rgwv.com), Nov 02 2005)
%o A111218 (PARI) for(n=1,100,print1(sumdiv(n,i,sumdiv(i,j,sumdiv(j,k,sumdiv(k,l,
sumdiv(l,m,sumdiv(m,x,numdiv(x))))))),","))
%Y A111218 Sequence in context: A122858 A053596 A141384 this_sequence A103744 A151782
A165829
%Y A111218 Adjacent sequences: A111215 A111216 A111217 this_sequence A111219 A111220
A111221
%K A111218 mult,nonn
%O A111218 1,2
%A A111218 Gerald McGarvey (gerald.mcgarvey(AT)comcast.net), Oct 25 2005
|