RosettaCodeData/Task/Cyclops-numbers/F-Sharp/cyclops-numbers-7.fs

let n=primeCyclops|>Seq.findIndex(fun n->n>10000000) in printfn "First prime Cyclop number > 10,000,000 is %d at index %d" (Seq.item n (primeCyclops)) n