A124580 Where A124579 has two successive identical values.
1, 9, 15, 31, 36, 40, 47, 165, 237, 330, 354, 357, 365, 402, 406, 421, 426, 794, 797, 813, 885, 894, 897, 905, 914, 1257, 1281, 1290, 1298, 1301, 1337, 1522, 1526, 1545, 1842, 1865, 2094, 2098, 2118, 2121, 2137, 2569, 3598, 4602, 4609, 4621, 4629, 4726, 4729
Offset: 1
Keywords
Examples
Interval 10^n . # of -1 ...# of 0 . # of 1 # of terms ............0.........0.........0.........1........1 ............1.........4.........3.........3........1 ............2........30........39........31........5 ............3.......303.......392.......305.......18 ............4......3053......3917......3030.......57 ............5.....30421.....39206.....30373......189 ............6....303857....392074....304069......636 ............7...3039127...3920709...3040164.....1176 ............8..30395383..39207306..30397311.....4621 ............9.303963673.392072876.303963451....15952
Links
- Robert G. Wilson v, Table of n, a(n) for n=1..9066
Programs
-
Mathematica
p = q = y = z = a = 0; s = {}; Do[ q = Switch[ MoebiusMu@n, -1, y++, 0, z++, 1, a++ ]; If[p == q, AppendTo[s, n - 1]]; p = q, {n, 5000}]; s
Comments