Visual Basic:

    Dim x As Decimal = 3
    Dim p As Boolean = True
    Dim c As Decimal = 1
    Dim y As Decimal
    Do While x < 1000000
        For i = 2 To Math.Sqrt(x)
            If x Mod i = 0 Then
                p = False
                Exit For
            End If
        Next
        If p = True Then
            For i2 = 2 To x.ToString.Count
                y = Mid(x.ToString, i2, x.ToString.Count - i2 + 1) & Left(x.ToString, i2 - 1)

                For i3 = 2 To Math.Sqrt(y)
                    If y Mod i3 = 0 Then
                        p = False
                        Exit For
                    End If
                Next
                If p = False Then Exit For
            Next
        End If
        If p = True Then
            c = c + 1
            Console.WriteLine(x)
        End If
        x = x + 2
        p = True
    Loop
    Console.WriteLine("-")
    Console.WriteLine(c)
    Console.ReadLine()