|
%I #14 Sep 28 2012 06:13:45
%S 6,7,10,15,20,21,24,25,30,33,34,37,42,43,46,47,50,55,60,61,64,69,72,
%T 73,76,77,82,87,88,91,96,101,102,105,106,109,114,117,118,123,128,129,
%U 132,137,142,143,146,147
%N Numbers that appear in either both A156242(n) + 1 and A156243(n) or both A156242(n) and A156243(n) + 1.
%e 6 is in both A156242 and A156243 + 1.
%e 7 is in both A156242 + 1 and A156243.
%t 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 Cf. A156242, A156243, A054353.
%K nonn
%O 1,1
%A _Jon Perry_, Sep 04 2012
|
