OFFSET
1,2
MATHEMATICA
Select[Range[200], And@@(Abs[First[#]-Last[#]]>2&/@Partition[ IntegerDigits[#], 2, 1])&] (* Harvey P. Dale, Mar 28 2011 *)
Select[Range[200], Min[Abs[Differences[IntegerDigits[#]]]]>2&] (* Harvey P. Dale, May 24 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved