

A103122


Define a 11 correspondence between the integers Z and the nonnegative integers N by f(n) = A102370(n) if n >= 0, f(n) = A102371(n) if n < 0; sequence gives a(n) = f^(1)(n) for n >= 0.


4



0, 1, 2, 1, 4, 3, 2, 3, 8, 7, 6, 9, 4, 11, 10, 5, 16, 15, 14, 17, 20, 19, 18, 13, 24, 23, 22, 25, 12, 5, 26, 21, 32, 31, 30, 33, 36, 35, 34, 29, 40, 39, 38, 41, 28, 43, 42, 37, 48, 47, 46, 49, 52, 51, 50, 45, 56, 55, 54, 57, 44, 27, 6, 53, 64, 63, 62, 65, 68
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,3


COMMENTS

A 11 map from the nonnegative integers to all integers.
Simply stated: a(n) = index of n in A102370 if it is a member, else minus its index in the complement A102371.  M. F. Hasler, Apr 14 2022


LINKS

Table of n, a(n) for n=0..68.
David Applegate, Benoit Cloitre, Philippe Deléham and N. J. A. Sloane, Sloping binary numbers: a new sequence related to the binary numbers [pdf, ps].
David Applegate, Benoit Cloitre, Philippe Deléham and N. J. A. Sloane, Sloping binary numbers: a new sequence related to the binary numbers, J. Integer Seq. 8 (2005), no. 3, Article 05.3.6, 15 pp.


PROG

(PARI) A103122(n)=if(n<0, 0, s=n; while(abs(if(sign(s)+1, 2^s1/21/2*sum(k=0, s, (1)^floor((s+k)/2^k)*2^k), 2^(s1)1/2+1/2*sum(k=0, s1, (1)^floor((s1k)/2^k)*2^k))n)>0, s++); s) \\ Benoit Cloitre, Mar 29 2005


CROSSREFS

Sequence in context: A242364 A065620 A104895 * A214918 A328394 A087850
Adjacent sequences: A103119 A103120 A103121 * A103123 A103124 A103125


KEYWORD

sign,base


AUTHOR

N. J. A. Sloane, Mar 24 2005


EXTENSIONS

More terms from Benoit Cloitre, Mar 29 2005


STATUS

approved



