Mathematica, 62 bytes
MatchQ[Differences@IntegerDigits@#,{a:1...,b:___}/;{b}==-{a}]&
Anonymous function. Takes a number as input and returns True or False as output.
LegionMammal978
- 18k
- 4
- 25
- 57