|
%I #12 Jul 28 2023 23:28:30
%S 1,2,3,4,5,9,12,16,19,23,26,33,55,59,74,98,117,141,156,160,199,203,
%T 333,357,444,448,588,592,703,707,847,851,938,962,1197,1221,1999,2003,
%U 2143,2147,2666,2690,3530,3554,4221,4245,5085,5109
%N Numbers in which all pairs of consecutive base-6 digits differ by 2.
%H Harvey P. Dale, <a href="/A033084/b033084.txt">Table of n, a(n) for n = 1..200</a>
%t Join[Range[5],Select[Range[5200],Union[Abs[Differences[IntegerDigits[ #,6]]]] == {2}&]] (* _Harvey P. Dale_, Jul 19 2020 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
