OFFSET
1,1
COMMENTS
This is the fourth of four sequences, u^v, u^v', u'^v, u'^v', that partition the positive integers. See A356052.
EXAMPLE
MATHEMATICA
z = 250;
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 *)
Intersection[u, v] (* A356052 *)
Intersection[u, v1] (* A356053 *)
Intersection[u1, v] (* A356054 *)
Intersection[u1, v1] (* A356055 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jul 26 2022
STATUS
approved