Jacobsthal numbers: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Minor tidy) |
Not a robot (talk | contribs) (Add SETL) |
||
Line 3,170: | Line 3,170: | ||
95562442332919646317117537304253622533190207882011713489066201641121786503686867002917439712921903606443 |
95562442332919646317117537304253622533190207882011713489066201641121786503686867002917439712921903606443 |
||
</pre> |
</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}}== |
=={{header|Sidef}}== |