fork download
copy 
  1. ; motzkin numbers
  2.  
  3. (define (a001006 k) ; first k terms
  4.   (let loop ((a 0) (b 1) (n 1) (k k) (ms (list)))
  5.     (if (zero? k) (reverse ms)
  6.       (let* ((ms (cons (/ b n) ms))
  7.              (n (+ n 1))
  8.              (c (/ (+ (* 3 (- n 1) n a)
  9.                       (* (+ n n -1) n b))
  10.                    (* (+ n 1) (- n 1)))))
  11.         (loop b c n (- k 1) ms)))))
  12.  
  13. (display (a001006 20)) (newline)
Success #stdin #stdout 0.01s 7932KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(1 1 2 4 9 21 51 127 323 835 2188 5798 15511 41835 113634 310572 853467 2356779 6536382 18199284)
https://ideone.com/bTWbli
language:
Scheme (chicken 4.13)
created:
2 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!