gistfile1.vb

'FreeBasic
Public Function Rotate(ByVal x As Integer) As Integer
	Dim s As String = Str(x)
	Return Int(Val(Mid(s,2,Len(s)-1) + Mid(s,1,1)))
End Function
Dim Shared isPrime(1000000) As Integer, Used(1000000) As Integer, Answer As Integer = 0
For i  As Integer = 0 To 1000000
	isPrime(i)=1
	Used(i)=0
Next
isPrime(0) = 0: isPrime(1) = 0
For i As Integer = 0 To 1000
	If isPrime(i) = 0 Then Continue For
	For j As Integer = i * 2 To 1000000 Step i
		isPrime(j) = 0
	Next
Next
For i As Integer = 0 To 1000000
	If isPrime(i) = 1 AndAlso Used(i) = 0 Then
		Dim r As Integer = Rotate(i),Cnt As Integer = 1, Ok As Integer = 1
		If InStr(Str(i),"0") <> 0 Then Continue For
		Used(i) = 1
		Do While r <> i
			If isPrime(r) = 0 Then Ok = 0
			Used(r) = 1
			Cnt += 1
			r = Rotate(r)
		Loop
		If Ok = 1 Then Answer += Cnt
	EndIf
Next
Print Answer
' #> 55