A300828 Multiplicative with a(p^2) = 1, a(p^3) = -2 and a(p^e) = 0 when e = 1 or e > 3.

1, 0, 0, 1, 0, 0, 0, -2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, -2

Offset

1,8

Comments

Used for computing A208133.

Links

Antti Karttunen, Table of n, a(n) for n = 1..65537

Example

For n = 216 = 2^3 * 3^3, a(2^3) * a(3^3) = -2 * -2 = 4.

Mathematica

f[p_, e_] := Switch[e, 2, 1, 3, -2, _, 0]; a[n_] := Times @@ f @@@ FactorInteger[n]; a[1] = 1; Array[a, 100] (* Amiram Eldar, Sep 05 2023 *)

Prog

(PARI) A300828(n) = { if(1==n, return(1)); my(val=1, v=factor(n), d=matsize(v)[1]); for(i=1, d, if(v[i, 2] < 2 || v[i, 2] > 3, return(0)); if (v[i, 2] == 3, val *= -2)); return(val); }; \\ R. J. Mathar, Antti Karttunen, Mar 21 2018
(Scheme, with memoization-macro definec)
(definec (A300828 n) (if (= 1 n) n (* (case (A067029 n) ((2) 1) ((3) -2) (else 0)) (A300828 (A028234 n)))))

Crossrefs

Cf. A208133.

Sequence in context: A130713 A236619 A355627 * A297246 A297243 A297240

Adjacent sequences: A300825 A300826 A300827 * A300829 A300830 A300831

Keyword

sign,easy,mult

Author

Antti Karttunen, Mar 21 2018

Status

approved