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
Examples
n=12: 12->'1100', 12+1->'1101', a(12)='1100''1101'='11001101'->205.
Links
- Paolo P. Lava, Table of n, a(n) for n = 1..10000
Programs
-
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 *) -
PARI
a(n) = fromdigits(Vec(concat(binary(n), binary(n+1))), 2); \\ Michel Marcus, May 20 2017
Comments