Problem:
Score : 300 points

Problem Statement

You are given an integer N. Among the integers between 1 and N (inclusive), how many Shichi-Go-San numbers (literally "Seven-Five-Three numbers") are there?

Here, a Shichi-Go-San number is a positive integer that satisfies the following condition:

When the number is written in base ten, each of the digits 7, 5 and 3 appears at least once, and the other digits never appear.

Constraints

1 \leq N < 10^9

N is an integer.

Input

Input is given from Standard Input in the following format:

N

Output

Print the number of the Shichi-Go-San numbers between 1 and N (inclusive).

Sample Input 1

575

Sample Output 1

4

There are four Shichi-Go-San numbers not greater than 575: 357, 375, 537 and 573.

Sample Input 2

3600

Sample Output 2

13

There are 13 Shichi-Go-San numbers not greater than 3600: the above four numbers, 735, 753, 3357, 3375, 3537, 3557, 3573, 3575 and 3577.

Sample Input 3

999999999

Sample Output 3

26484

Solution in Fortran (gfortran v4.8.4) (judge verdict: Wrong Answer)

program main
   implicit none
   integer:: n,i,j,count(4)=0,nnew,summ=0,dummy1,dummy2
   
   read(*,*)n
   do i=1,n
     count(1:3)=0;count(4)=1
     do j=int(log10(real(i))),0,-1
        if(j==int(log10(real(i))))dummy2=i
        nnew=dummy2/10**j
        dummy2=dummy2-nnew*10**j
        
        if(nnew==3)then;count(1)=1;cycle;endif
        if(nnew==5)then;count(2)=1;cycle;endif
        if(nnew==7)then;count(3)=1;cycle;endif
        if(nnew/=3 .and. nnew/=5 .and. nnew/=7)count(4)=0
  !      write(*,*)nnew
     enddo
     if(all(count==1))then
        summ=summ+1
        write(*,*)i
     endif
   enddo
   write(*,*)summ
end program main