This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A216348 #14 Sep 28 2012 06:13:45
%S A216348 6,7,10,15,20,21,24,25,30,33,34,37,42,43,46,47,50,55,60,61,64,69,72,
%T A216348 73,76,77,82,87,88,91,96,101,102,105,106,109,114,117,118,123,128,129,
%U A216348 132,137,142,143,146,147
%N A216348 Numbers that appear in either both A156242(n) + 1 and A156243(n) or both A156242(n) and A156243(n) + 1.
%e A216348 6 is in both A156242 and A156243 + 1.
%e A216348 7 is in both A156242 + 1 and A156243.
%t A216348 n = 10; t = Prepend[Nest[Flatten[Partition[#, 2] /. {{2, 2} -> {2, 2, 1, 1}, {2, 1} -> {2, 2, 1}, {1, 2} -> {2, 1, 1}, {1, 1} -> {2, 1}}] &, {2, 2}, n], 1]; t2 = Accumulate[t]; {t3, t4} = Transpose[Partition[t2, 2]]; Union[Intersection[t3, t4 + 1], Intersection[t3 + 1, t4]] (* _T. D. Noe_, Sep 26 2012 *)
%Y A216348 Cf. A156242, A156243, A054353.
%K A216348 nonn
%O A216348 1,1
%A A216348 _Jon Perry_, Sep 04 2012