[seqfan] Re: A067266

[Heinz, Alois]

The terms in the sequence are correct.

Best regards, Alois

Am 14.07.2014 15:46, schrieb Harvey P. Dale:
> 	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
>