cp's OEIS Frontend

A248211 First differences of omega(n), the number of distinct prime factors function (A001221).

%I A248211 #23 Dec 29 2022 12:12:54
%S A248211 1,0,0,0,1,-1,0,0,1,-1,1,-1,1,0,-1,0,1,-1,1,0,0,-1,1,-1,1,-1,1,-1,2,
%T A248211 -2,0,1,0,0,0,-1,1,0,0,-1,2,-2,1,0,0,-1,1,-1,1,0,0,-1,1,0,0,0,0,-1,2,
%U A248211 -2,1,0,-1,1,1,-2,1,0,1,-2,1,-1,1,0,0,0,1,-2,1
%N A248211 First differences of omega(n), the number of distinct prime factors function (A001221).
%C A248211 First instance of abs(a(n)) > 2 is for n = 210. - _Alonso del Arte_, Oct 05 2014
%H A248211 Eric M. Schmidt, <a href="/A248211/b248211.txt">Table of n, a(n) for n = 1..10000</a>
%H A248211 Paul Erdős, Carl Pomerance and András Sárközy, <a href="https://math.dartmouth.edu/~carlp/PDF/58.pdf">On locally repeated values of certain arithmetic functions. II</a>, Acta Math. Hungar. 49 (1987), 251-259.
%F A248211 a(n) = omega(n+1) - omega(n) = A001221(n+1) - A001221(n).
%F A248211 G.f.: (1 - x)*Sum_{k>=1} x^(prime(k)-1)/(1 - x^prime(k)). - _Ilya Gutkovskiy_, Mar 15 2017
%p A248211 with(numtheory): A248211:=n->nops(factorset(n+1))-nops(factorset(n)): seq(A248211(n), n=1..100);
%t A248211 Table[PrimeNu[n + 1] - PrimeNu[n], {n, 100}] (* Hurt *)
%t A248211 Differences[PrimeNu[Range[100]]] (* _Alonso del Arte_, Oct 04 2014 *)
%o A248211 (PARI) a(n) = omega(n+1) - omega(n); \\ _Michel Marcus_, Dec 29 2022
%Y A248211 Cf. A001221 (omega).
%Y A248211 Cf. A053222: first differences of sigma(n) = A000203.
%Y A248211 Cf. A076191: first differences of bigomega(n) = A001222.
%Y A248211 Cf. A127440: first differences of mobius(n) = A008683.
%K A248211 sign,easy
%O A248211 1,29
%A A248211 _Wesley Ivan Hurt_, Oct 04 2014