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

0, 7, 14, 23, 28, 39, 46, 55, 56, 63, 78, 79, 92, 95, 110, 111, 112, 119, 126, 151, 156, 151, 158, 183, 184, 191, 190, 191, 220, 223, 222, 223, 224, 231, 238, 247, 252, 295, 302, 311, 312, 319, 302, 303, 316, 319, 366, 367, 368, 375, 382, 375, 380, 375, 382

Offset

0,2

Comments

From Robert Israel, Dec 27 2016: (Start)

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

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

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)

Links

Robert Israel, Table of n, a(n) for n = 0..10000

Maple

seq(Bits:-Or(n, 7*n), n=0..100); # Robert Israel, Dec 27 2016

Mathematica

f[n_] := BitOr[n, 7n]; Array[f, 55, 0] (* Robert G. Wilson v, Jun 28 2010 *)

Crossrefs

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

Sequence in context: A297426 A036556 A013644 * A356183 A050953 A333859

Adjacent sequences: A178891 A178892 A178893 * A178895 A178896 A178897

Keyword

nonn,look

Author

Dmitry Kamenetsky, Jun 21 2010

Extensions

More terms from Robert G. Wilson v, Jun 28 2010

Status

approved