erlang sieve of eratosthenes.erl

-module(sieve).
-export([sieve/1]).

sieve(N) -> 
    [1 | sieve(lists:seq(2, N), N)].

sieve([Head|L], N) when Head * 2 < N ->
    [Head | sieve(L -- lists:seq(Head * 2, N, Head), N)];

sieve([Head|L], _) ->
    [Head | L].

1. view Started with some experiments in the Erlang shell.
2. view Created a recursive implementation based on my experiments
3. view Reformatted to make it more readable.
4. view Change to use a more common way of adding items to the head of a list.