A273105 a(n) = A038572(n) + A006257(n), sum of the two numbers obtained by rotating the binary representation of n by one place to the right and to the left.

0, 2, 2, 6, 3, 9, 8, 14, 5, 15, 10, 20, 15, 25, 20, 30, 9, 27, 14, 32, 19, 37, 24, 42, 29, 47, 34, 52, 39, 57, 44, 62, 17, 51, 22, 56, 27, 61, 32, 66, 37, 71, 42, 76, 47, 81, 52, 86, 57, 91, 62, 96, 67, 101, 72, 106, 77, 111, 82, 116, 87, 121, 92, 126, 33, 99

Offset

0,2

Links

Table of n, a(n) for n=0..65.

Mathematica

Table[FromDigits[RotateRight@ #, 2] + FromDigits[RotateLeft@ #, 2] &@ IntegerDigits[n, 2], {n, 0, 65}] (* Michael De Vlieger, May 17 2016 *)

Prog

(Python)
print('0', end=', ')
for n in range(1, 1000):
    BL = len(bin(n))-2
    x = (n>>1) + ((n&1) << (BL-1))   # A038572(n)
    x+= (n*2) - (1<<BL) + 1   # A006257(n)  for n>0
    print(str(x), end=', ')

Crossrefs

Cf. A006257, A038572, A088161, A088163.

Sequence in context: A308159 A081745 A240578 * A370370 A307966 A129889

Adjacent sequences: A273102 A273103 A273104 * A273106 A273107 A273108

Keyword

nonn,base,easy

Author

Alex Ratushnyak, May 15 2016

Status

approved