Cubic special primes: Difference between revisions

=={{header|11l}}==

{{trans|FreeBASIC}}

<lang 11l>F is_prime(a)

I a == 2

R 1B

I a < 2 | a % 2 == 0

R 0B

L(i) (3 .. Int(sqrt(a))).step(2)

I a % i == 0

R 0B

R 1B

V p = 2

V n = 1

print(2, end' ‘ ’)

L p + n ^ 3 < 15000

I is_prime(p + n ^ 3)

p += n ^ 3

n = 1

print(p, end' ‘ ’)

E

n++</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>