|
%I #11 Oct 03 2023 22:23:58
%S 1,2,3,4,6,9,11,14,17,25,27,36,38,46,57,59,68,70,100,102,110,145,153,
%T 155,185,187,228,230,238,273,281,283,401,409,411,441,443,580,582,612,
%U 614,622,740,742,750,913,921,923,953,955,1092
%N Numbers with the property that all pairs of consecutive base-4 digits differ by 1.
%t Join[Range[3],Select[Range[2000],Union[Abs[Differences[IntegerDigits[#,3]]]]=={1}&]] (* _Harvey P. Dale_, Dec 28 2011 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
