RosettaCodeData/Task/Babbage-problem/F-Sharp/babbage-problem-3.fs
2023-07-01 13:44:08 -04:00

2 lines
113 B
FSharp

let rec fN g=seq{yield g; yield g+2; yield! fN(g+10)}
printfn "%d" (fN 524|>Seq.find(fun n->n*n%1000000=269696))