3040049domain: NPropertiesPrimalityPrimeyesAppears in sequencesa(n) = If [ Mod[A001591[n], 1]=1 then A001591[n] else A001591[n]+1 If PrimeQ[a[n]]==True then a[n].at n=5A089133Prime numbersat n=219469