|
%I #9 Dec 20 2014 22:12:36
%S 1,1,512,262144,134348544,68786454528,35218798673920,
%T 18032024921047040,9232396828183582208,4726987176064286720000,
%U 2420217434180064678903808,1239151326300193115598749696,634445479065716907074042200064
%N Shifts left when Dirichlet convolution (DC:(b,b)->a) applied 9 times.
%H Alois P. Heinz, <a href="/A144323/b144323.txt">Table of n, a(n) for n = 1..100</a>
%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%p k:=9: with(numtheory): dc:= proc(b,c) proc(n) option remember; add(b(d) *c(n/d), d=`if`(n<0,{}, divisors(n))) end end: a:='a': b[1]:= dc(a,a): for t from 2 to k do b[t]:= dc(b[t-1], b[t-1]) od: a:= n-> `if`(n=1, 1, b[k](n-1)): seq(a(n), n=1..20);
%Y 9th column of A144324.
%K eigen,nonn
%O 1,3
%A _Alois P. Heinz_, Sep 17 2008
|
