a(n) = If [ Mod[A001591[n], 1]=1 then A001591[n] else A001591[n]+1 If PrimeQ[a[n]]==True then a[n].

A089133

a(n) = If [ Mod[A001591[n], 1]=1 then A001591[n] else A001591[n]+1 If PrimeQ[a[n]]==True then a[n].

Terms

    a(0) =3a(1) =5a(2) =17a(3) =31a(4) =61a(5) =3040049a(6) =5976577a(7) =585029621921

External references