OFFSET
1,3
COMMENTS
EXAMPLE
A002110(5) = 2310 and 2310 is divisible by 2+3+1+0=6, so 5 is a term.
MATHEMATICA
a={}; For[k=0, k<=100, k++, p=Product[Prime[i], {i, k}]; If[Mod[p, Total[IntegerDigits[p]]]==0, AppendTo[a, k]]]; a (* Stefano Spezia, Jan 21 2023 *)
PROG
(PARI) isok(k) = my(p=factorback(primes(k))); !(p % sumdigits(p));
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Marcus, Jan 21 2023
STATUS
approved