A273105 - OEIS

%I #17 May 03 2021 16:31:09

%S 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,

%T 34,52,39,57,44,62,17,51,22,56,27,61,32,66,37,71,42,76,47,81,52,86,57,

%U 91,62,96,67,101,72,106,77,111,82,116,87,121,92,126,33,99

%N 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.

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

%o (Python)

%o print('0', end=',')

%o for n in range(1,1000):

%o     BL = len(bin(n))-2

%o     x = (n>>1) + ((n&1) << (BL-1))   # A038572(n)

%o     x+= (n*2) - (1<<BL) + 1   # A006257(n)  for n>0

%o     print(str(x), end=',')

%Y Cf. A006257, A038572, A088161, A088163.

%K nonn,base,easy

%O 0,2

%A _Alex Ratushnyak_, May 15 2016