Annual Appeal: Please make a donation (tax deductible in USA) to keep the OEIS running. Over 4500 articles have referenced us, often saying "we would not have discovered this result without the OEIS".
a(n) = A020639(n) - A001222(n).
a(A091375(n)) < 0. a(A091376(n)) = 0. a(A091377(n)) > 0.
Harvey P. Dale, Table of n, a(n) for n = 1..1000
with(numtheory); A091371:=n->`if`(n=1, 1, min(op(factorset(n)))-bigomega(n)); seq(A091371(k), k=1..100); # Wesley Ivan Hurt, Oct 27 2013
Array[FactorInteger[#][[1, 1]]-PrimeOmega[#]&, 80] (* Harvey P. Dale, May 25 2012 *)
Cf. A091372, A091373, A091374.
Sequence in context: A001613 A237420 A130891 * A144775 A249744 A245075
Adjacent sequences: A091368 A091369 A091370 * A091372 A091373 A091374
Reinhard Zumkeller, Jan 04 2004
Definition clarified by Harvey P. Dale, May 25 2012