OFFSET
1,1
LINKS
MATHEMATICA
q[n_] := Module[{k = n, m = 2, r, s = 0}, While[{k, r} = QuotientRemainder[k, m]; k != 0|| r != 0, s += r; m++]; !Divisible[n, s]]; Select[Range[120], q] (* Amiram Eldar, Feb 21 2024 *)
PROG
(Scheme, with Antti Karttunen's IntSeq-library)
(Python)
def a007623(n, p=2): return n if n<p else a007623(n//p, p+1)*10 + n%p
def ok(n):
x=a007623(n)
y=sum(int(k) for k in str(x))
return n%y!=0
print([n for n in range(1, 111) if ok(n)]) # Indranil Ghosh, Jun 21 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Jun 18 2017
STATUS
approved