[seqfan] Re: New (?) sequence of primes
Neil Sloane
njasloane at gmail.com
Thu Dec 29 19:09:07 CET 2022
Allan, if you want, you could submit that sequence, corrected, saying "...
following a suggestion from Zak Seidov" (as I did with A359126 with a
sequence from someone else).
Zak Seidov is blocked (for the fourth time, he was blocked in 2017, 2019,
2021, and 2022 ), so he should not be submitting sequences through the back
door like this. But if you find the sequence interesting, go ahead and
submit it.
Best regards
Neil
Neil J. A. Sloane, Chairman, OEIS Foundation.
Also Visiting Scientist, Math. Dept., Rutgers University,
Email: njasloane at gmail.com
On Wed, Dec 28, 2022 at 9:47 PM Allan Wechsler <acwacw at gmail.com> wrote:
> Why does a(2) = 7? If a(2) were 3, then Omega(2 + 3) = Omega(5) = 1 < 4, as
> desired.
>
> Omega is the number of prime factors counting multiplicity, right? (
> https://oeis.org/A001222)
>
> I am getting 2, 3, 5, 7, 11, 19, 23, 29, 13, 17 ....
>
> On Tue, Dec 27, 2022 at 9:54 PM zak seidov via SeqFan <
> seqfan at list.seqfan.eu>
> wrote:
>
> > 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
> >
> >
> > --
> > Seqfan Mailing list - http://list.seqfan.eu/
> >
>
> --
> Seqfan Mailing list - http://list.seqfan.eu/
>
More information about the SeqFan
mailing list