Cubic special primes: Difference between revisions
Realize in F#
m (added whitespace before the TOC..) |
(Realize in F#) |
||
Line 6:
where '''n''' < '''15000'''.
<br><br>
=={{header|F_Sharp|F#}}==
<lang fsharp>
// Cubic Special Primes: Nigel Galloway. March 30th., 2021
let fN=let N=[for n in [0..25]->n*n*n] in let mutable n=2 in (fun g->match List.contains(g-n)N with true->n<-g; true |_->false)
primes32()|>Seq.takeWhile((>)16000)|>Seq.filter fN|>Seq.iter(printf "%d "); printfn ""
</lang>
{{out}}
<pre>
2 3 11 19 83 1811 2027 2243 2251 2467 2531 2539 3539 3547 4547 5059 10891 12619 13619 13627 13691 13907 14419
</pre>
=={{header|Go}}==
| |||