help regarding loops in R

I  have a large vector of around 12597 elements and I wish to calculate
p-value for each element using a formula of something like:
                        p-value= 1- exp^(kexp^(-labda))
I was wondering someone could give some ideas how to implement for each element.
thankyou very much
Rangesh.K