A166671 Totally multiplicative sequence with a(p) = 7p-2 for prime p.

1, 12, 19, 144, 33, 228, 47, 1728, 361, 396, 75, 2736, 89, 564, 627, 20736, 117, 4332, 131, 4752, 893, 900, 159, 32832, 1089, 1068, 6859, 6768, 201, 7524, 215, 248832, 1425, 1404, 1551, 51984, 257, 1572, 1691, 57024, 285, 10716, 299, 10800, 11913

Offset

1,2

Links

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

Formula

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

Mathematica

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

Crossrefs

Sequence in context: A155574 A272100 A119382 * A357211 A331258 A104198

Adjacent sequences: A166668 A166669 A166670 * A166672 A166673 A166674

Keyword

nonn,mult

Author

Jaroslav Krizek, Oct 18 2009

Status

approved