login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Least m > n such that bigomega(m) != bigomega(n), where bigomega(n) = A001222(n).
3

%I #15 Feb 23 2024 20:14:29

%S 2,4,4,5,6,7,8,9,11,11,12,13,14,16,16,17,18,19,20,21,23,23,24,25,27,

%T 27,29,29,30,31,32,33,36,36,36,37,38,40,40,41,42,43,44,46,46,47,48,49,

%U 50,51,52,53,54,55,56,57,59,59,60,61,62,63,64

%N Least m > n such that bigomega(m) != bigomega(n), where bigomega(n) = A001222(n).

%C abs(A001222(a(n)) - A001222(n)) >= 1.

%H Michael De Vlieger, <a href="/A071193/b071193.txt">Table of n, a(n) for n = 1..10000</a>

%t Array[(k = #1; While[PrimeOmega[k] == #2, k++]; k) & @@ {#, PrimeOmega[#]} &, 64] (* _Michael De Vlieger_, Feb 23 2024 *)

%Y Cf. A001222, A071192, A071191.

%K nonn

%O 1,1

%A _Reinhard Zumkeller_, May 15 2002