OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
PROG
(PARI) is(n)=my(d=Set(digits(n, 5))); for(i=if(d[1], 1, 2), #d, if(n%d[i]==0, return(0))); 1 \\ Charles R Greathouse IV, Feb 23 2017
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Henry Bottomley, May 12 2000
STATUS
approved