A178894 - OEIS

%I #13 Dec 27 2016 22:44:17

%S 0,7,14,23,28,39,46,55,56,63,78,79,92,95,110,111,112,119,126,151,156,

%T 151,158,183,184,191,190,191,220,223,222,223,224,231,238,247,252,295,

%U 302,311,312,319,302,303,316,319,366,367,368,375,382,375,380,375,382

%N a(n) = n OR 7n, where OR is bitwise OR.

%C From _Robert Israel_, Dec 27 2016: (Start)

%C 7*n <= a(n) < 8*n.

%C a(n) = 7*n if and only if n is in A048715.

%C It appears that a(n) = 8*n-1 if and only if n = (4*8^j+2*8^k+3)/7 for some j and k. (End)

%H Robert Israel, <a href="/A178894/b178894.txt">Table of n, a(n) for n = 0..10000</a>

%p seq(Bits:-Or(n,7*n), n=0..100); # _Robert Israel_, Dec 27 2016

%t f[n_] := BitOr[n, 7n]; Array[f, 55, 0] (* _Robert G. Wilson v_, Jun 28 2010 *)

%Y Cf. A048715, A163617, A178890, A178891, A178892, A178893, A178895, A178896, A178897.

%K nonn,look

%O 0,2

%A _Dmitry Kamenetsky_, Jun 21 2010

%E More terms from _Robert G. Wilson v_, Jun 28 2010