A335655 Numbers k such that Omega(k+1) = Omega(k) + m, where Omega(k) = A001222(k) is the number of prime factors of k with multiplicity, case m = 3.
23, 53, 59, 63, 83, 89, 103, 111, 119, 131, 139, 149, 151, 161, 197, 227, 233, 293, 299, 303, 307, 347, 349, 377, 379, 389, 391, 395, 399, 407, 443, 461, 487, 491, 509, 519, 521, 539, 551, 557, 563, 566, 569, 571, 591
Offset: 1
Keywords
Examples
23 is in the sequence since Omega(24) = 4 = 1 + 3 = Omega(23) + 3.
Programs
-
Mathematica
m = 3; s = {}; Do[If[PrimeOmega[x + 1] == PrimeOmega[x] + m, AppendTo[s, x]], {x, 600}]; s