A124580 - OEIS

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

(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

Robert G. Wilson v, Table of n, a(n) for n=1..9066

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

Cf. A124579, Column 2 = A063035, Column 1 + Column 3 = A053462.

Sequence in context: A248381 A060874 A147511 * A103508 A051246 A320062

Adjacent sequences: A124577 A124578 A124579 * A124581 A124582 A124583

KEYWORD

nonn

AUTHOR

Robert G. Wilson v, Nov 05 2006, Nov 12 2006

STATUS

approved