Motzkin numbers: Difference between revisions
Content added Content deleted
(Motzkin numbers en Yabasic) |
(J) |
||
Line 846: | Line 846: | ||
41 192,137,918,101,841,817 false |
41 192,137,918,101,841,817 false |
||
</pre> |
</pre> |
||
=={{header|J}}== |
|||
Implementation: |
|||
<lang J>nextMotzkin=: , (({:*1+2*#) + _2&{*3*#-1:)%2+#</lang> |
|||
Task example: |
|||
<lang J> (":,.' ',.('prime'#~ 1&p:@{.)"1) ,.nextMotzkin^:40(1 1x) |
|||
1 |
|||
1 |
|||
2 prime |
|||
4 |
|||
9 |
|||
21 |
|||
51 |
|||
127 prime |
|||
323 |
|||
835 |
|||
2188 |
|||
5798 |
|||
15511 prime |
|||
41835 |
|||
113634 |
|||
310572 |
|||
853467 |
|||
2356779 |
|||
6536382 |
|||
18199284 |
|||
50852019 |
|||
142547559 |
|||
400763223 |
|||
1129760415 |
|||
3192727797 |
|||
9043402501 |
|||
25669818476 |
|||
73007772802 |
|||
208023278209 |
|||
593742784829 |
|||
1697385471211 |
|||
4859761676391 |
|||
13933569346707 |
|||
40002464776083 |
|||
114988706524270 |
|||
330931069469828 |
|||
953467954114363 prime |
|||
2750016719520991 |
|||
7939655757745265 |
|||
22944749046030949 |
|||
66368199913921497 |
|||
192137918101841817 |
|||
</lang> |
|||
=={{header|jq}}== |
=={{header|jq}}== |
||
Line 918: | Line 970: | ||
41 192137918101841817 |
41 192137918101841817 |
||
</pre> |
</pre> |
||
=={{header|Julia}}== |
=={{header|Julia}}== |