%I #7 May 21 2016 22:34:35

%S 1,15,23,225,39,345,55,3375,529,585,87,5175,103,825,897,50625,135,

%T 7935,151,8775,1265,1305,183,77625,1521,1545,12167,12375,231,13455,

%U 247,759375,2001,2025,2145,119025,295,2265,2369,131625,327,18975,343,19575

%N Totally multiplicative sequence with a(p) = 8p-1 for prime p.

%H G. C. Greubel, <a href="/A166657/b166657.txt">Table of n, a(n) for n = 1..10000</a>

%F Multiplicative with a(p^e) = (8p-1)^e. If n = Product p(k)^e(k) then a(n) = Product (8*p(k)-1)^e(k).

%t a[1] = 1; a[n_] := (fi = FactorInteger[n]; Times @@ ((8*fi[[All, 1]] - 1)^fi[[All, 2]])); Table[a[n], {n, 1, 100}] (* _G. C. Greubel_, May 21 2016 *)

%K nonn,mult

%O 1,2

%A _Jaroslav Krizek_, Oct 18 2009