program main
    implicit none
    integer :: A, B, i, j, nabeatsu
    read *, A, B
    do i = A, B, 1
        j = i
        if (mod(j, 3) == 0 .or. nabeatsu(j) == 1) then
            print *, i
        end if
    end do
end program main

function nabeatsu(j)
    implicit none
    integer :: j, nabeatsu

    nabeatsu = 0
    do while (j > 1)
        if (mod (j, 10) == 3) then
            nabeatsu = 1
        end if
        j = j / 10
    end do
end function nabeatsu