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

2 lines
177 B
Forth
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
let n=palindromicCyclops|>Seq.findIndex(fun n->n>10000000) in printfn "First palindromic prime Cyclop number > 10,000,000 is %d at index %d" (Seq.item n (palindromicCyclops)) n