|
%I #15 Feb 13 2021 01:13:38
%S 1,2,3,4,5,6,7,8,9,14,15,16,17,18,19,25,26,27,28,29,30,36,37,38,39,40,
%T 41,47,48,49,50,51,52,58,59,60,61,62,63,69,70,71,72,73,74,80,81,82,83,
%U 84,85,90,91,92,93,94,95,96,140,141,147,148
%N Numbers with the property that all pairs of consecutive base-10 digits differ by more than 2.
%t Select[Range[200],And@@(Abs[First[#]-Last[#]]>2&/@Partition[ IntegerDigits[#],2,1])&] (* _Harvey P. Dale_, Mar 28 2011 *)
%t Select[Range[200],Min[Abs[Differences[IntegerDigits[#]]]]>2&] (* _Harvey P. Dale_, May 24 2015 *)
%Y Cf. A032981.
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
