题目中所给的前几项数列，即符合格雷码，又符合以下我写的规律。
设数列16项为一个循环。每一组数的基数为(n div 16)*16。
然后按照：a :array[1..16]of longint=(0,1,3,2,6,7,5,4,12,13,15,14,10,11,9,8);
答案为(n div 16)*16+a[(n-1)mod 16+1]。
大家可以试一试，如果觉得我说的有什么问题，欢迎给予指点。
如果题意真有争议，希望管理员帮助调整题目描述。谢谢！
DXE-SYF