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

1, 15, 23, 225, 39, 345, 55, 3375, 529, 585, 87, 5175, 103, 825, 897, 50625, 135, 7935, 151, 8775, 1265, 1305, 183, 77625, 1521, 1545, 12167, 12375, 231, 13455, 247, 759375, 2001, 2025, 2145, 119025, 295, 2265, 2369, 131625, 327, 18975, 343, 19575

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..10000

Formula

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).

Mathematica

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 *)

Crossrefs

Sequence in context: A195036 A111151 A361340 * A373675 A059144 A274339

Adjacent sequences: A166654 A166655 A166656 * A166658 A166659 A166660

Keyword

nonn,mult

Author

Jaroslav Krizek, Oct 18 2009

Status

approved