A166661 Totally multiplicative sequence with a(p) = 3p+1 for prime p.

1, 7, 10, 49, 16, 70, 22, 343, 100, 112, 34, 490, 40, 154, 160, 2401, 52, 700, 58, 784, 220, 238, 70, 3430, 256, 280, 1000, 1078, 88, 1120, 94, 16807, 340, 364, 352, 4900, 112, 406, 400, 5488, 124, 1540, 130, 1666, 1600, 490, 142, 24010, 484, 1792

Offset

1,2

Links

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

Formula

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

Mathematica

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

Crossrefs

Sequence in context: A056510 A013398 A013493 * A025632 A038276 A249952

Adjacent sequences: A166658 A166659 A166660 * A166662 A166663 A166664

Keyword

nonn,mult

Author

Jaroslav Krizek, Oct 18 2009

Status

approved