%I #10 Jul 28 2023 23:28:21
%S 1,2,3,4,5,6,7,8,9,14,25,30,36,41,47,52,58,63,69,74,85,96,141,147,252,
%T 258,303,363,369,414,474,525,585,630,636,696,741,747,852,858,963,969,
%U 1414,1474,2525,2585,3030,3036,3630,3636,3696
%N Numbers in which all pairs of consecutive base-10 digits differ by 3.
%H Harvey P. Dale, <a href="/A033081/b033081.txt">Table of n, a(n) for n = 1..200</a>
%t Join[Range[9],Select[Range[4000],Union[Abs[Differences[ IntegerDigits[ #]]]] == {3}&]] (* _Harvey P. Dale_, Mar 10 2016 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|