|
%I #7 May 21 2016 22:34:20
%S 1,11,17,121,29,187,41,1331,289,319,65,2057,77,451,493,14641,101,3179,
%T 113,3509,697,715,137,22627,841,847,4913,4961,173,5423,185,161051,
%U 1105,1111,1189,34969,221,1243,1309,38599,245,7667,257,7865,8381,1507,281
%N Totally multiplicative sequence with a(p) = 6p-1 for prime p.
%H G. C. Greubel, <a href="/A166655/b166655.txt">Table of n, a(n) for n = 1..10000</a>
%F 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).
%t 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 21 2016 *)
%K nonn,mult
%O 1,2
%A _Jaroslav Krizek_, Oct 18 2009
|
