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

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A284819 Positions of 1 in A284817. 3
3, 7, 9, 12, 15, 19, 21, 25, 27, 30, 34, 36, 39, 43, 45, 48, 51, 55, 57, 61, 63, 66, 69, 73, 75, 79, 81, 84, 88, 90, 93, 96, 100, 102, 106, 108, 111, 115, 117, 120, 123, 127, 129, 133, 135, 138, 142, 144, 147, 151, 153, 156, 159, 163, 165, 169, 171, 174, 177 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
COMMENTS
This sequence and A284818 show that the nonperiodic complementary sequences A284776 and A284777 stay close to the odd positive integers, A005408, and even positive integers, A005843, respectively.
LINKS
EXAMPLE
A284817 = (0,0,1,0,0,0,1,0,1,0,0,1,0,0...), so that a(1) = 3, a(2) = 7, a(3) = 9.
MATHEMATICA
s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0, 0, 1, 1}}] &, {0}, 7]; (* A284775 *)
u = Flatten[Position[s, 0]] ; (* A284776 *)
v = Flatten[Position[s, 1]]; (* A284777 *)
t = Table[2 n - 1 - u[[n]], {n, 1, 200}]; (* A284817 *)
Flatten[Position[t, 0]]; (* A284818 *)
Flatten[Position[t, 1]]; (* A284819 *)
CROSSREFS
Sequence in context: A366529 A190366 A342699 * A190742 A289906 A190752
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 15 2017
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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 25 11:03 EDT 2024. Contains 371967 sequences. (Running on oeis4.)