|
%I
%S 1,1,1,1,1,1,1,2,2,3,2,4,2,6,5,8,4,12,4,14,12,21,8,30,8,36,26,46,16,
%T 74,17,76,56,106,32,166,34,172,116,220,66,369,68,352,236,478,132,776,
%U 136,750,486,972,264,1640,273,1522,980,2020,528,3360,550,3152,1968,4072
%N Shifts 6 places left under Dirichlet convolution.
%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%p k:= 6: with (numtheory): dck:= proc(b,c) proc(n, k) option remember; add (b(d,k) *c(n/d,k), d=`if`(n<0,{}, divisors(n))) end end: B:= dck(T,T): T:= (n, k)-> if n<=k then 1 else B(n-k, k) fi: a:= n-> T(n,k): seq (a(n), n=1..70);
%Y 6th column of A144374. Cf. A000005.
%K eigen,nonn
%O 1,8
%A _Alois P. Heinz_, Sep 18 2008
|
