A378880 a(n) = A378879(n) - A083025(n).

0, 1, 1, 2, -1, 2, 1, 3, 2, 0, 1, 3, -1, 2, 0, 4, -1, 3, 1, 1, 2, 2, 1, 4, -2, 0, 3, 3, -1, 1, 1, 5, 2, 0, 0, 4, -1, 2, 0, 2, -1, 3, 1, 3, 1, 2, 1, 5, 2, -1, 0, 1, -1, 4, 0, 4, 2, 0, 1, 2, -1, 2, 3, 6, -2, 3, 1, 1, 2, 1, 1, 5, -1, 0, -1, 3, 2, 1, 1, 3, 4, 0

Offset

1,4

Links

Table of n, a(n) for n=1..82.

Example

a(10) = 0 because the factorization 2*5 has 1 each of a Pythagorean prime, 5, and a non-Pythagorean prime, 2.

Mathematica

f[{x_, y_}] := If[Mod[x, 4] == 1, y, -y];
s[n_] := Map[f, FactorInteger[n]];
p[n_] := {Total[Select[s[n], # > 0 &]], -Total[Select[s[n], # < 0 &]]};
p[1] = {0, 0};
t = Table[p[n], {n, 1, 135}]
u = Map[First, t]   (* A083025 *)
v = Map[Last, t]   (* A378879 *)
v - u (* A377625 *)

Crossrefs

Cf. A000040, A002144, A002145, A083025, A378879.

Sequence in context: A247379 A154819 A104145 * A230981 A123675 A356226

Adjacent sequences: A378877 A378878 A378879 * A378881 A378882 A378883

Keyword

sign

Author

Clark Kimberling, Jan 14 2025

Status

approved