585029621921domain: NAppears 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=7A089133