%I #11 Oct 03 2023 22:23:45
%S 1,2,3,4,5,6,7,9,15,17,23,25,31,33,39,41,47,50,64,66,105,107,121,123,
%T 162,164,178,180,219,221,235,237,276,278,292,333,335,350,352,448,450,
%U 464,466,736,750,752,848,850,864,866,1134,1136
%N Numbers with the property that all pairs of consecutive base-7 digits differ by 1.
%t Join[Range[6],Select[Range[2000],Union[Abs[Differences[IntegerDigits[#,7]]]]=={1}&]] (* _Harvey P. Dale_, Dec 28 2011 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|