Jacobsthal numbers: Difference between revisions
Add SETL
m (→{{header|Wren}}: Minor tidy) |
Not a robot (talk | contribs) (Add SETL) |
||
Line 3,170:
95562442332919646317117537304253622533190207882011713489066201641121786503686867002917439712921903606443
</pre>
=={{header|SETL}}==
<syntaxhighlight lang="setl">program jacobsthal_numbers;
print("First 30 Jacobsthal numbers:");
printseq([j n : n in [0..29]]);
print;
print("First 30 Jacobsthal-Lucas numbers:");
printseq([jl n : n in [0..29]]);
print;
print("First 20 Jacobsthal oblong numbers:");
printseq([jo n : n in [0..19]]);
print;
print("First 10 Jacobsthal primes:");
printseq([j n : n in [0..31] | prime j n]);
proc printseq(seq);
loop for n in seq do
nprint(lpad(str n, 14));
if (i +:= 1) mod 5 = 0 then print; end if;
end loop;
end proc;
op j(n);
return (2**n - (-1)**n) div 3;
end op;
op jl(n);
return 2**n + (-1)**n;
end op;
op jo(n);
return j n * j (n+1);
end op;
op prime(n);
if n<=4 then return n in {2,3}; end if;
return not exists d in [2..floor sqrt n] | n mod d = 0;
end op;
end program;</syntaxhighlight>
{{out}}
<pre>First 30 Jacobsthal numbers:
0 1 1 3 5
11 21 43 85 171
341 683 1365 2731 5461
10923 21845 43691 87381 174763
349525 699051 1398101 2796203 5592405
11184811 22369621 44739243 89478485 178956971
First 30 Jacobsthal-Lucas numbers:
2 1 5 7 17
31 65 127 257 511
1025 2047 4097 8191 16385
32767 65537 131071 262145 524287
1048577 2097151 4194305 8388607 16777217
33554431 67108865 134217727 268435457 536870911
First 20 Jacobsthal oblong numbers:
0 1 3 15 55
231 903 3655 14535 58311
232903 932295 3727815 14913991 59650503
238612935 954429895 3817763271 15270965703 61084037575
First 10 Jacobsthal primes:
3 5 11 43 683
2731 43691 174763 2796203 715827883</pre>
=={{header|Sidef}}==
| |||