OFFSET
1,1
COMMENTS
LINKS
E. Angelini, Knife numbers.
PROG
(PARI) is(n, u=[1, 1])=n&&for(k=1, #Str(n)-1, n%(u*divrem(n, 10^k))==0&&(n%10^k)&&return(1))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler and Eric Angelini, Sep 21 2014
STATUS
approved