|
0, 1, 2, 3, 6, 5, 6, 7, 14, 13, 14, 11, 14, 13, 14, 15, 30, 29, 30, 27, 30, 29, 30, 23, 30, 29, 30, 27, 30, 29, 30, 31, 62, 61, 62, 59, 62, 61, 62, 55, 62, 61, 62, 59, 62, 61, 62, 47, 62, 61, 62, 59, 62, 61, 62, 55, 62, 61, 62, 59, 62, 61, 62, 63, 126, 125, 126, 123, 126, 125
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
a(2*n) = 2*(A062383(n)-1);
A023416(a(n)) <= 1.
|
|
LINKS
|
R. Zumkeller, Table of n, a(n) for n = 0..10000
R. Zumkeller, Logical Convolutions
|
|
MAPLE
|
A142151 := n -> n + Bits:-Nor(n, n+1):
seq(A142151(n), n=0..69); # Peter Luschny, Sep 26 2019
|
|
PROG
|
(Haskell)
import Data.Bits (xor, (.|.))
a142151 :: Integer -> Integer
a142151 = foldl (.|.) 0 . zipWith xor [0..] . reverse . enumFromTo 1
-- Reinhard Zumkeller, Mar 31 2015
|
|
CROSSREFS
|
Cf. A003817, A000004, A142149, A086099, A142150, A001477, A089633.
Sequence in context: A340774 A057723 A335835 * A003968 A076734 A242314
Adjacent sequences: A142148 A142149 A142150 * A142152 A142153 A142154
|
|
KEYWORD
|
nonn,hear,look
|
|
AUTHOR
|
Reinhard Zumkeller, Jul 15 2008
|
|
STATUS
|
approved
|
|