cp's OEIS Frontend

A356054 Intersection of A001952 and A137803.

%I A356054 #5 Jul 26 2022 13:41:35
%S A356054 3,13,17,30,34,40,44,47,51,61,68,78,88,95,99,105,109,112,116,122,126,
%T A356054 133,139,143,153,160,170,174,187,191,204,208,218,225,235,245,252,256,
%U A356054 262,266,269,273,279,283,290,300,310,317,327,331,334,338,344,348
%N A356054 Intersection of A001952 and A137803.
%C A356054 This is the third of four sequences, u^v, u^v', u'^v, u'^v', that partition the positive integers. See A356052.
%e A356054 (1)  u ^ v = (1, 5, 7, 9, 11, 15, 19, 21, 22, 24, 26, 28, ...) =  A356052
%e A356054 (2)  u ^ v' = (2, 4, 8, 12, 14, 16, 18, 25, 29, 31, 33, 35, ...) =  A356053
%e A356054 (3)  u' ^ v = (3, 13, 17, 30, 34, 40, 44, 47, 51, 61, 68, ...) = A356054
%e A356054 (4)  u' ^ v' = (6, 10, 20, 23, 27, 37, 54, 58, 64, 71, 75, ...) = A356055
%t A356054 z = 250;
%t A356054 u = Table[Floor[n (Sqrt[2])], {n, 1, z}]   (* A001951 *)
%t A356054 u1 = Complement[Range[Max[u]], u]     (* A001952 *)
%t A356054 v = Table[Floor[n (1/2 + Sqrt[2])], {n, 1, z}]  (* A137803 *)
%t A356054 v1 = Complement[Range[Max[v]], v]     (* A137804 *)
%t A356054 Intersection[u, v]    (* A356052 *)
%t A356054 Intersection[u, v1]   (* A356053 *)
%t A356054 Intersection[u1, v]   (* A356054 *)
%t A356054 Intersection[u1, v1]  (* A356055 *)
%Y A356054 Cf. A001951, A001952, A136803, A137804, A356052, A356054, A356055, A356056 (composites instead of intersections).
%K A356054 nonn,easy
%O A356054 1,1
%A A356054 _Clark Kimberling_, Jul 26 2022