A166665 Totally multiplicative sequence with a(p) = 7p+1 for prime p.

1, 15, 22, 225, 36, 330, 50, 3375, 484, 540, 78, 4950, 92, 750, 792, 50625, 120, 7260, 134, 8100, 1100, 1170, 162, 74250, 1296, 1380, 10648, 11250, 204, 11880, 218, 759375, 1716, 1800, 1800, 108900, 260, 2010, 2024, 121500, 288, 16500, 302, 17550

Offset

1,2

Links

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

Formula

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

Mathematica

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

Crossrefs

Sequence in context: A241253 A317793 A219683 * A317295 A014312 A325823

Adjacent sequences: A166662 A166663 A166664 * A166666 A166667 A166668

Keyword

nonn,mult

Author

Jaroslav Krizek, Oct 18 2009

Status

approved