Motzkin numbers: Difference between revisions
m
→{{header|Quackery}}: tweaked prime
(Added Quackery.) |
m (→{{header|Quackery}}: tweaked prime) |
||
Line 1,474:
<code>sqrt</code> is defined at [[Isqrt (integer square root) of X#Quackery]].
<lang Quackery> [ dup
dup
true swap dup sqrt
0 = iff [ 2drop not ] done
1
drop ] is prime (
41 times
[ dup -2 split nip do
i^ 2 + 2 * 1 - *
swap i^ 2 + 3 * 6 - * +
i^ 3 + / join
behead drop
witheach
| |||