とりあえずフィボナッチ

-module(tmp).
-export([fib/1]).

fib(1) -> 1;
fib(2) -> 1;
fib(X) -> fib(X - 2) + fib(X - 1).

4> c(tmp).
{ok,tmp}
5> tmp:fib(5).
5
6> tmp:fib(6).
8

-module(tmp).
-export([fib/1]).

fib(1) -> [1];
fib(2) -> [1, 1];
fib(X) -> 
   Result = fib(X - 1), 
   [Prev1 | [Prev2 | _]] = Result,
   [Prev1 + Prev2 | Result]. 

8> c(tmp).
{ok,tmp}
9> tmp:fib(6).
[8,5,3,2,1,1]