OFFSET
1,1
COMMENTS
This is the third of four sequences that partition the positive integers. See A356056.
EXAMPLE
MATHEMATICA
u = Table[Floor[n (Sqrt[2])], {n, 1, z}] (* A001951 *)
u1 = Complement[Range[Max[u]], u] (* A001952 *)
v = Table[Floor[n (1/2 + Sqrt[2])], {n, 1, z}] (* A137803 *)
v1 = Complement[Range[Max[v]], v] (* A137804 *)
Table[u[[v[[n]]]], {n, 1, z/8}]; (* A356056 *)
Table[u[[v1[[n]]]], {n, 1, z/8}]; (* A356057 *)
Table[u1[[v[[n]]]], {n, 1, z/8}]; (* A356058 *)
Table[u1[[v1[[n]]]], {n, 1, z/8}]; (* A356059 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jul 26 2022
STATUS
approved