1到699除去带4和带7的总共有多少个数字？

1到699除去带4和带7的总共有383个数字。我用EXCEL的VBA穷举的。
Sub 宏1()
n = 1
For i = 1 To 699
j = Application.Text(i, "000")
If Not (Right(j, 1) = 4 Or Right(j, 1) = 7 Or Mid(j, 2, 1) = 4 Or Mid(j, 2, 1) = 7 Or Left(j, 1) = 4 Or Left(j, 1) = 7) Then
Cells(n, 1) = j
n = n + 1
End If
Next
End Sub

编程很高大上啊，我还是用归纳法吧。
先把400-499这100个拿下，剩下599个。
每100中，把40几和70几拿下，共20个，再把每10个中的4和7拿下，共8x2=16，这样，每100个就拿下了20+16=36个
这剩下的599个里面要拿下6x36=216个
剩下599-216=383个。
就是383个。
没错吧？

问题挺好！
编个程序，结果382