login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A284817 a(n) = 2n - 1 - A284776(n). 3
0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0 (list; graph; refs; listen; history; text; internal format)
OFFSET

1

LINKS

Clark Kimberling, Table of n, a(n) for n = 1..10000

FORMULA

a(n) = 2n - 1 - A284776.

EXAMPLE

A284776 = (1,3,4,7,9,11,12,15,16,19, ...), so that a(1) = 1-1 = 0, a(2) = 3-3 = 0.

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

Cf. A284776, A284818, A284819.

Sequence in context: A156729 A188079 A049320 * A309766 A328979 A284524

Adjacent sequences:  A284814 A284815 A284816 * A284818 A284819 A284820

KEYWORD

nonn,easy

AUTHOR

Clark Kimberling, Apr 14 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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 18 05:10 EDT 2021. Contains 343994 sequences. (Running on oeis4.)