Magic constant: Difference between revisions

=={{header|Quackery}}==

<lang Quackery> [ 3 + dup 2dup * * + 2 / ] is magicconstant ( n --> n )

20 times [ i^ magicconstant echo sp ] cr cr

1000 magicconstant echo cr cr

0 1

[ over magicconstant over > if

[ over 3 + echo cr

10 * ]

dip 1+ dup

[ 10 21 ** ] constant

= until ]

2drop</lang>

{{out}}

<pre>15 34 65 111 175 260 369 505 671 870 1105 1379 1695 2056 2465 2925 3439 4010 4641 5335

504514015

3

4

6

13

28

59

126

272

585

1260

2715

5849

12600

27145

58481

125993

271442

584804

1259922

2714418

5848036</pre>