OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
wnQ[n_] := (s = Total[w[n]]) > 0 && Divisible[n, s] (* using the function w[n] from A364005 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Jul 01 2023
STATUS
approved