|
%I #7 Oct 10 2019 23:18:22
%S 0,1,2,3,4,5,6,7,8,9,16,27,38,49,50,61,72,83,94,161,272,383,494,505,
%T 616,727,838,949,1616,2727,3838,4949,5050,6161,7272,8383,9494,16161,
%U 27272,38383,49494,50505,61616,72727,83838,94949,161616,272727,383838
%N Numbers whose consecutive digits differ by 5.
%t Join[Range[0,9],Select[Range[400000],Union[Abs[Differences[ IntegerDigits[ #]]]] == {5}&]] (* _Harvey P. Dale_, Sep 23 2013 *)
%Y Cf. A033075, A033088, A033081, A048406-A048410.
%K nonn,base
%O 0,3
%A _Patrick De Geest_, Apr 15 1999
|
