OFFSET
0
LINKS
FORMULA
MATHEMATICA
a[n_] := Module[{k = n, m = 2, c = 0, r}, While[{k, r} = QuotientRemainder[k, m]; k != 0 || r != 0, If[r == m - 1, c++]; m++]; If[c > 0, 1, 0]]; Array[a, 100, 0] (* Amiram Eldar, Feb 07 2024 *)
PROG
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Sep 22 2016
STATUS
approved