My program (below) generates terms that are significantly different (albeit with many terms the same) from those in the above sequence. Is my program wrong or should I correct the terms of the sequence?
The program:
With[{nn=1000},Flatten[Position[Thread[{Accumulate[Array[MoebiusMu,nn]],PrimeOmega[Range[nn]]}],_?(First[#]==Last[#]&),{1},Heads->False]]]
Best,
Harvey