A087737 Value of (n,n+1) concatenated in binary representation.

6, 11, 28, 37, 46, 55, 120, 137, 154, 171, 188, 205, 222, 239, 496, 529, 562, 595, 628, 661, 694, 727, 760, 793, 826, 859, 892, 925, 958, 991, 2016, 2081, 2146, 2211, 2276, 2341, 2406, 2471, 2536, 2601, 2666, 2731, 2796, 2861, 2926, 2991, 3056, 3121

Offset

1,1

Comments

a(n) = n * 2^A070939(n+1) + (n+1).

Links

Paolo P. Lava, Table of n, a(n) for n = 1..10000

Example

n=12: 12->'1100', 12+1->'1101', a(12)='1100''1101'='11001101'->205.

Maple

a:= n-> n*(2^(ilog2(n+1)+1)+1)+1:
seq(a(n), n=1..50);  # Alois P. Heinz, May 20 2017

Mathematica

Table[FromDigits[Join[IntegerDigits[n, 2], IntegerDigits[n+1, 2]], 2], {n, 50}] (* Harvey P. Dale, Jan 14 2013 *)
Table[n 2^IntegerLength[#, 2] + # &[n + 1], {n, 48}] (* Michael De Vlieger, May 20 2017 *)

Prog

(PARI) a(n) = fromdigits(Vec(concat(binary(n), binary(n+1))), 2); \\ Michel Marcus, May 20 2017

Crossrefs

Cf. A007088, A001704.

Sequence in context: A273681 A273705 A165819 * A273328 A273423 A273760

Adjacent sequences: A087734 A087735 A087736 * A087738 A087739 A087740

Keyword

nonn,base

Author

Reinhard Zumkeller, Oct 01 2003

Status

approved