OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MAPLE
q:= n-> not isprime(n) and andmap(d-> irem(n, d)>0,
{convert(n, base, 10)[]} minus {0}):
select(q, [$1..500])[]; # Alois P. Heinz, Apr 01 2021
MATHEMATICA
Select[Range@500, !PrimeQ@#&&Mod[#, DeleteCases[IntegerDigits@#, 0]]~FreeQ~0&] (* Giorgos Kalogeropoulos, Apr 01 2021 *)
Select[Range[500], CompositeQ[#]&&NoneTrue[#/(IntegerDigits[#]/.(0-> Nothing)), IntegerQ]&] (* Harvey P. Dale, Dec 28 2021 *)
PROG
(PARI) isok(n)={if(isprime(n), 0, my(v=digits(n)); for(i=1, #v, if(v[i]<>0 && n%v[i]==0, return(0))); 1)} \\ Andrew Howroyd, Mar 25 2021
(Python)
from sympy import isprime
def ok(n): return not isprime(n) and all(n%int(d) for d in str(n) if d!='0')
print(list(filter(ok, range(4, 455)))) # Michael S. Branicky, Apr 01 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
John Bibby, Mar 24 2021
STATUS
approved