OFFSET
1,2
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..12167
FORMULA
MATHEMATICA
s[0] = 0; s[n_]:= s[n]= If[OddQ[n], 1 - 2*s[(n-1)/2], 2*s[n/2]]; f[p_, e_] := p^(ThueMorse[e] * s[e]); a[n_] := Times @@ f @@@ FactorInteger[n]; a[1] = 1; Array[a, 100] (* Amiram Eldar, Sep 05 2023 *)
PROG
(Scheme, two variants)
(definec (A270418 n) (cond ((= 1 n) 1) (else (* (expt (A020639 n) (* (A010060 (A067029 n)) (A065620 (A067029 n)))) (A270418 (A028234 n))))))
(define (A270418 n) (numerator (A270418perA270419 n)))
(definec (A270418perA270419 n) (cond ((= 1 n) 1) (else (* (expt (A020639 n) (A065620 (A067029 n))) (A270418perA270419 (A028234 n))))))
(PARI) A270418(n)={n=factor(n); n[, 2]=apply(A065620, n[, 2]); numerator(factorback(n))} \\ M. F. Hasler, Apr 16 2018
KEYWORD
nonn,frac,easy,mult
AUTHOR
Antti Karttunen, May 23 2016
STATUS
approved