|
Search: id:A143292
|
|
|
| A143292 |
|
Gray code sequence on the primes base 10: a(n)=graycode_10(Prime{n]). |
|
+0
1
|
|
| 3, 2, 7, 4, 14, 11, 25, 26, 28, 19, 16, 55, 61, 62, 56, 47, 38, 35, 98, 100, 109, 104, 122, 117, 81, 87, 84, 94, 91, 73, 64, 194, 205, 206, 223, 220, 211, 242, 244, 251, 234, 239, 224, 161, 167, 164, 186, 176, 146, 151, 157, 152, 137, 134, 385, 388, 395, 392, 415
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
REFERENCES
|
http://mathworld.wolfram.com/notebooks/Combinatorics/GrayCode.nb; Eric's MathWorld entry http://mathworld.wolfram.com/GrayCode.html.
|
|
FORMULA
|
a(n)=graycode_10(Prime{n]).
|
|
MATHEMATICA
|
GrayCodeList[k_] := Module[{b = IntegerDigits[k, 2], i}, Do[ If[b[[i - 1]] == 1, b[[i]] = 1 - b[[i]]], {i, Length[b], 2, -1} ]; b ]; FromGrayCodeList[d_] := Module[{b = d, i, j}, Do[ If[Mod[Sum[b[[j]], {j, i - 1}], 2] == 1, b[[i]] = 1 - b[[i]]], {i, n = Length[d], 2, -1} ]; FromDigits[b, 2] ]; GrayCode[i_, n_] :=
|
|
CROSSREFS
|
Sequence in context: A113658 A059029 A056434 this_sequence A075627 A011384 A128140
Adjacent sequences: A143289 A143290 A143291 this_sequence A143293 A143294 A143295
|
|
KEYWORD
|
nonn,uned,probation
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Oct 21 2008
|
|
|
Search completed in 0.002 seconds
|
