OFFSET
1,4
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = Product_{k=1..A001221(n)} (A027748(n,k)^A004442(A124010(n,k))). - Reinhard Zumkeller, Jun 23 2013
From Amiram Eldar, Jan 07 2023: (Start)
a(n) = n^2/A011262(n).
Dirichlet g.f.: zeta(2*s-2) * Product_{p prime} (1 + 1/p^s + 1/p^(2*s-3) - 1/p^(2*s-2)). - Amiram Eldar, Sep 21 2023
MATHEMATICA
f[n_, k_] := n^(If[EvenQ[k], k + 1, k - 1]); Table[Times @@ f @@@ FactorInteger[n], {n, 94}] (* Jayanta Basu, Aug 14 2013 *)
PROG
(Haskell)
a011264 n = product $ zipWith (^)
(a027748_row n) (map a004442 $ a124010_row n)
-- Reinhard Zumkeller, Jun 23 2013
(PARI) a(n) = {my(f = factor(n)); prod(i = 1, #f~, f[i, 1]^if(f[i, 2]%2, f[i, 2]-1, f[i, 2]+1)); } \\ Amiram Eldar, Jan 07 2023
CROSSREFS
KEYWORD
easy,nonn,mult
AUTHOR
STATUS
approved