A216348 Numbers that appear in either both A156242(n) + 1 and A156243(n) or both A156242(n) and A156243(n) + 1.

6, 7, 10, 15, 20, 21, 24, 25, 30, 33, 34, 37, 42, 43, 46, 47, 50, 55, 60, 61, 64, 69, 72, 73, 76, 77, 82, 87, 88, 91, 96, 101, 102, 105, 106, 109, 114, 117, 118, 123, 128, 129, 132, 137, 142, 143, 146, 147

Offset: 1

Author

Jon Perry, Sep 04 2012

Keywords

• nonn

Examples

			6 is in both A156242 and A156243 + 1.
7 is in both A156242 + 1 and A156243.
		

Crossrefs

Cf. A156242, A156243, A054353.

Programs

Mathematica

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 *)