A325699 Number of distinct even prime indices of n minus the number of distinct odd prime indices of n.
0, -1, 1, -1, -1, 0, 1, -1, 1, -2, -1, 0, 1, 0, 0, -1, -1, 0, 1, -2, 2, -2, -1, 0, -1, 0, 1, 0, 1, -1, -1, -1, 0, -2, 0, 0, 1, 0, 2, -2, -1, 1, 1, -2, 0, -2, -1, 0, 1, -2, 0, 0, 1, 0, -2, 0, 2, 0, -1, -1, 1, -2, 2, -1, 0, -1, -1, -2, 0, -1, 1, 0, -1, 0, 0, 0
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
Table[Total[(-1)^PrimePi/@First/@If[n==1,{},FactorInteger[n]]],{n,100}]
Formula
G.f.: Sum_{k>=1} (-1)^k * x^prime(k) / (1 - x^prime(k)). - Ilya Gutkovskiy, Feb 12 2020
Additive with a(p^e) = (-1)^primepi(p). - Amiram Eldar, Jun 17 2024
Comments