|
|
A087737
|
|
Value of (n,n+1) concatenated in binary representation.
|
|
3
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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:
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|