OFFSET
0,7
MATHEMATICA
d37[n_]:=Module[{d=IntegerDigits[n, 7]}, Count[d, _?(#<4&)]-Count[d, _?(#>3&)]]; Array[d37, 90, 0] (* Harvey P. Dale, Jun 28 2022 *)
CROSSREFS
KEYWORD
base,sign
AUTHOR
STATUS
approved