A065000 Numbers k such that Sum_{i=1..k} mu(sigma(i)) = 0.

2, 3, 5, 6, 7, 9, 10, 11, 12, 16, 17, 20, 21, 22, 23, 24, 61, 62, 63, 673, 674, 675, 725, 726, 727, 728, 733, 734, 735, 736, 737, 738, 739, 740, 741, 742, 743, 744, 745, 784, 785, 786, 787, 788, 789, 790, 791, 792, 793, 797, 798, 799, 800, 801, 802, 803, 804

Offset

1,1

Links

Harry J. Smith, Table of n, a(n) for n = 1..1000

Mathematica

Position[Accumulate[MoebiusMu[DivisorSigma[1, Range[1000]]]], 0]//Flatten (* Harvey P. Dale, Aug 15 2016 *)

Prog

(PARI) { n=s=0; for (m=1, 10^9, s+=moebius(sigma(m)); if (s==0, write("b065000.txt", n++, " ", m); if (n==1000, return)) ) } \\ Harry J. Smith, Oct 03 2009

Crossrefs

Sequence in context: A181133 A039105 A187328 * A188292 A171948 A287527

Adjacent sequences: A064997 A064998 A064999 * A065001 A065002 A065003

Keyword

nonn

Author

Benoit Cloitre, Feb 19 2002

Status

approved