A122277 Length of n-th run of zeros in A122276.

5, 3, 5, 4, 2, 2, 2, 1, 4, 3, 2, 1, 5, 2, 4, 2, 2, 1, 3, 1, 2, 1, 3, 2, 1, 2, 4, 1, 2, 3, 1, 1, 2, 1, 2, 2, 2, 1, 2, 2, 1, 1, 1, 2, 1, 2, 2, 2, 3, 2, 3, 2, 2, 2, 3, 3, 2, 1, 2, 1, 2, 2, 3, 2, 1, 5, 2, 2, 2, 2, 1, 4, 4, 2, 1, 2, 1, 2, 1, 2, 2, 2, 3, 3, 2, 3, 1, 1, 2, 1, 2, 1, 2, 2, 3, 1, 5, 1, 2, 3, 3, 3, 2, 1, 2

Offset

1,1

Comments

A run of zeros in A122276 corresponds to a section of A096535 where a(j) = a(j-1) + a(j-2) holds.

Links

Table of n, a(n) for n=1..105.

Mathematica

f[s_] := f[s] = Append[s, Mod[s[[ -2]] + s[[ -1]], Length[s]]]; k = 435; t = Nest[f, {1, 1}, k]; s = {}; Do[ AppendTo[s, If[t[[n]] + t[[n + 1]] < n + 1, 0, 1]], {n, k}]; Length /@ Select[Split@s, Union@# == {0} &] (* Robert G. Wilson v Sep 02 2006 *)

Prog

(PARI) {m=1000; a=1; b=1; c=0; for(n=2, m, d=divrem(a+b, n); if(d[1]==0, c++, if(c>0, print1(c, ", "); c=0)); a=b; b=d[2])}

Crossrefs

Cf. A096535, A122276, A122278 (records), A122279 (where records occur).

Sequence in context: A153386 A112920 A109364 * A198211 A216707 A145439

Adjacent sequences: A122274 A122275 A122276 * A122278 A122279 A122280

Keyword

nonn

Author

Klaus Brockhaus, Aug 29 2006

Status

approved