[seqfan] New (?) sequence of primes

[zak seidov]

a(1) = 2; afterwards, a(n) is the least new prime such that Omega(a(n-1) + a(n)) <4. 

 2, 7, 3, 5, 13, 17, 11, 19, 23, 29, 37, 31, 43, 59, 47, 67, 71, 53, 41, 61, 73, 97, 89, 83, 103, 79, 107, 131, 113, 101, 137, 109, 127, 139, 151, 163, 191, 167, 149, 173, 181, 157
s = {2, 7}; p = 7; Do[q = 3; While [MemberQ [s, q] || PrimeOmega[p + q] > 3, q = NextPrime[q]]; AppendTo[s, p = q], {100}]; s
====================Dear SF gurus,Can/wish anyone to submit it to OEIS?Thx a lot,Zakzakseidov at yahoo.com