OFFSET
1,2
COMMENTS
MATHEMATICA
Select[Range[0, 10000], And@@Divisible[#, Prime[IntegerDigits[#, 8]+1]]&] (* Harvey P. Dale, May 06 2015 *)
PROG
is(n, b=8)=!for(i=1, #d=Set(digits(n, b)), n%prime(d[i]+1)&&return)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Apr 11 2015
STATUS
approved