|
Search: id:A105530
|
|
| |
|
| 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; listen)
|
|
|
OFFSET
|
0,3
|
|
|
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 (mathar(AT)strw.leidenuniv.nl), Mar 28 2006
|
|
CROSSREFS
|
Cf. A105529.
Adjacent sequences: A105527 A105528 A105529 this_sequence A105531 A105532 A105533
Sequence in context: A065184 A065181 A026258 this_sequence A105108 A118460 A064788
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Gary W. Adamson (qntmpkt(AT)yahoo.com), Apr 11 2005
|
|
EXTENSIONS
|
More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Mar 28 2006
|
|
|
Search completed in 0.002 seconds
|
