A166664 Totally multiplicative sequence with a(p) = 6p+1 for prime p.

1, 13, 19, 169, 31, 247, 43, 2197, 361, 403, 67, 3211, 79, 559, 589, 28561, 103, 4693, 115, 5239, 817, 871, 139, 41743, 961, 1027, 6859, 7267, 175, 7657, 187, 371293, 1273, 1339, 1333, 61009, 223, 1495, 1501, 68107, 247, 10621, 259, 11323, 11191, 1807, 283

Offset

1,2

Links

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

Formula

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

Mathematica

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

Crossrefs

Sequence in context: A090258 A241246 A153266 * A147393 A088187 A146047

Adjacent sequences: A166661 A166662 A166663 * A166665 A166666 A166667

Keyword

nonn,mult

Author

Jaroslav Krizek, Oct 18 2009

Status

approved