|
|
A182243
|
|
a(0)=0, a(n) = (a(n-1) AND n) + n.
|
|
3
|
|
|
0, 1, 2, 5, 8, 5, 10, 9, 16, 9, 18, 13, 24, 21, 18, 17, 32, 17, 34, 21, 40, 21, 42, 25, 48, 41, 34, 29, 56, 53, 50, 49, 64, 33, 66, 37, 72, 37, 74, 41, 80, 41, 82, 45, 88, 53, 82, 49, 96, 81, 66, 53, 104, 85, 74, 57, 112, 105, 98, 93, 88, 85, 82, 81, 128, 65
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
Eric Weisstein's World of Mathematics, AND
|
|
FORMULA
|
a(0) = 0, a(n) = (a(n-1) AND n) + n, where AND is the bitwise logical AND operator.
|
|
MATHEMATICA
|
Join[{t = 0}, Table[t = BitAnd[t, n] + n, {n, 100}]] (* T. D. Noe, Apr 21 2012 *)
|
|
PROG
|
(Python)
a=0
for i in range(1, 511):
print(a, end=', ')
a &= i
a += i
(Haskell)
import Data.Bits ((.&.))
a182243 n = a182243_list !! n
a182243_list = map fst $ iterate f (0, 1) where
f (y, x) = ((x .&. y) + x, x + 1) :: (Integer, Integer)
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|