This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A105530 Inverse permutation to A105529. 3
 0, 1, 2, 5, 3, 4, 7, 8, 6, 15, 16, 17, 11, 9, 10, 13, 14, 12, 21, 22, 23, 26, 24, 25, 19, 20, 18, 45, 46, 47, 50, 48, 49, 52, 53, 51, 33, 34, 35, 29, 27, 28, 31, 32, 30, 39, 40, 41, 44, 42, 43 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,3 LINKS MAPLE gray := proc(inp::integer, bas::integer) local resul, digs, convdigs, compl, d ; digs := [op(convert(inp, base, bas)), 0] ; convdigs := [] ; for d from 1 to nops(digs)-1 do compl := op(d, digs)-op(d+1, digs) : if compl >= 0 then convdigs := [op(convdigs), compl] ; else convdigs := [op(convdigs), bas+compl] ; fi : od : convdigs := [op(convdigs), op(-1, digs)] : resul := 0 : for d from nops(convdigs) to 1 by -1 do resul := resul*bas + op(d, convdigs) : od : RETURN(resul) ; end: for n from 0 to 50 do printf("%a, ", gray(n, 3)) ; od : # R. J. Mathar, Mar 28 2006 CROSSREFS Cf. A105529. Sequence in context: A065184 A065181 A026258 * A245815 A105108 A118460 Adjacent sequences:  A105527 A105528 A105529 * A105531 A105532 A105533 KEYWORD nonn AUTHOR Gary W. Adamson, Apr 11 2005 EXTENSIONS More terms from R. J. Mathar, Mar 28 2006 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified July 22 07:23 EDT 2019. Contains 325216 sequences. (Running on oeis4.)