⎕io←0 a b←245182 790572 p←⊃(,(∘.,))/6/⊂⍳10 x←{(1↓⍵)-¯1↓⍵}¨p n←10⊥¨((∨/¨0=x)∧∧/¨0≤x)/p ≢((n>a)∧na)∧n2