Untitled

-module(pe3).
-export([something/1]).

something(N) ->
        something(0, 1, N).

something(X, F, N) ->
        B = is_prime(F),
        if
                F == N ->
                        X;
                N rem F == 0, B == 1 ->
                        something(F, F+1, N);
                true ->
                        something(X, F+1, N)
        end.


is_prime(N) ->
        is_prime(N, N).

is_prime(X, N) ->
        if
                X == 0 ->
                        1;
                X == N ; X == 1 ->
                        is_prime(X-1, N);
                N rem X == 0 ->
                        0;
                true ->
                        is_prime(X-1, N)
        end.