A166658 Totally multiplicative sequence with a(p) = 9p-1 for prime p.

1, 17, 26, 289, 44, 442, 62, 4913, 676, 748, 98, 7514, 116, 1054, 1144, 83521, 152, 11492, 170, 12716, 1612, 1666, 206, 127738, 1936, 1972, 17576, 17918, 260, 19448, 278, 1419857, 2548, 2584, 2728, 195364, 332, 2890, 3016, 216172, 368, 27404, 386

Offset

1,2

Links

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

Formula

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

Mathematica

a[1] = 1; a[n_] := (fi = FactorInteger[n]; Times @@ ((9*fi[[All, 1]] - 1)^fi[[All, 2]])); Table[a[n], {n, 1, 100}] (* G. C. Greubel, May 21 2016 *)

Crossrefs

Sequence in context: A336272 A154277 A140150 * A268330 A221282 A033702

Adjacent sequences: A166655 A166656 A166657 * A166659 A166660 A166661

Keyword

nonn,mult

Author

Jaroslav Krizek, Oct 18 2009

Status

approved