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
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 14 2017
STATUS
approved