%I
%S 1,6,0,36,12,0,24,216,0,72,48,0,60,144,0,1296,84,0,96,432,0,288,
%T 120,0,144,360,0,864,156,0,168,7776,0,504,288,0,204,576,0,2592,
%U 228,0,240,1728,0,720,264,0,576,864
%N Totally multiplicative sequence with a(p) = 6*(p3) for prime p.
%H G. C. Greubel, <a href="/A167316/b167316.txt">Table of n, a(n) for n = 1..1000</a>
%F Multiplicative with a(p^e) = (6*(p3))^e. If n = Product p(k)^e(k) then a(n) = Product (6*(p(k)3))^e(k). a(3k) = 0 for k >= 1. a(n) = A165827(n) * A166589(n) = 6^bigomega(n) * A166589(n) = 6^A001222(n) * A166589(n).
%t a[1] = 1; a[n_] := (fi = FactorInteger[n]; Times @@ ((fi[[All, 1]]  3)^fi[[All, 2]])); Table[a[n]*6^PrimeOmega[n], {n, 1, 100}] (* _G. C. Greubel_, Jun 09 2016 *)
%K sign,mult
%O 1,2
%A _Jaroslav Krizek_, Nov 01 2009
