The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A108882 Period doubling sequence starting with '1 0 1'. 0
 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Start with S = 1,0,1; replace S by SS and complement the last bit; iterate. Similar to A035263 but with a different start. LINKS Table of n, a(n) for n=1..105. MATHEMATICA f[l_] := Block[{s = Flatten[{l, l}]}, s[[ -1]] = Mod[s[[ -1]] + 1, 2]; s]; Nest[f, {1, 0, 1}, 6] (* Robert G. Wilson v, Jul 16 2005 *) PROG s=[1 0 1]; loop s=concat(s, s); s(length(s))=(s(length(s))+1)modulo2 endloop CROSSREFS Cf. A035263. Sequence in context: A141212 A341347 A137893 * A284656 A168002 A267050 Adjacent sequences: A108879 A108880 A108881 * A108883 A108884 A108885 KEYWORD easy,nonn AUTHOR Alexandre Losev, Jul 14 2005 EXTENSIONS More terms from Robert G. Wilson v, Jul 16 2005 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 14 09:06 EDT 2024. Contains 371657 sequences. (Running on oeis4.)