|
|
A124580
|
|
Where A124579 has two successive identical values.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Except for a(2), a(5) & a(6) none of these duplicates involve zeros.
|
|
LINKS
|
|
|
EXAMPLE
|
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
|
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|