Serge Batalov has authored 27 sequences. Here are the ten most recent ones:
A360994
Numbers k such that (2^k + 1)^3 - 2 is a semiprime.
Original entry on oeis.org
0, 1, 2, 4, 5, 6, 13, 14, 18, 27, 43, 45, 63, 76, 85, 108, 115, 119, 123, 187, 211, 215, 283, 312
Offset: 1
-
IsSemiprime:=func; [n: n in [1..70]| IsSemiprime(s) where s is (2^n+1)^3-2];
-
Select[Range[70], PrimeOmega[(2^# + 1)^3 - 2] == 2 &]
-
isok(n) = bigomega((2^n+1)^3-2) == 2;
A360993
Numbers k such that (2^k - 1)^3 + 2 is a semiprime.
Original entry on oeis.org
4, 5, 8, 12, 13, 18, 20, 29, 38, 56, 60, 62, 76, 82, 101, 118, 202, 210, 230, 276, 328, 332, 336, 338, 368
Offset: 1
a(1) = 4 because 15^3 + 2 = 3377 = 11 * 307, which is semiprime.
a(2) = 5 because 31^3 + 2 = 29793 = 3 * 9931, which is semiprime.
-
IsSemiprime:=func; [n: n in [2..70]| IsSemiprime(s) where s is (2^n-1)^3+2];
-
Select[Range[70], PrimeOmega[(2^# - 1)^3 - 2] == 2 &]
-
isok(n) = bigomega((2^n-1)^3+2) == 2;
A355956
Index k of partition function p such that p(k) is a member of a cousin prime pair.
Original entry on oeis.org
3, 5, 6, 13, 36, 157, 302, 546, 2502, 2732, 19439060
Offset: 1
5 is in the sequence because A000041(5) = 7 and 7 + 4 = 11 are cousin primes.
13 is in the sequence because A000041(13) = 101 and 101 - 4 = 97 are cousin primes.
-
for(n=1, 10000, if(ispseudoprime(p=numbpart(n))&&(ispseudoprime(p-4)||ispseudoprime(p+4)), print1(n, ", ")))
A355728
Indices k of partition function where consecutive p(k) and p(k+1) are prime.
Original entry on oeis.org
2, 3, 4, 5, 1085
Offset: 1
5 is in the sequence because A000041(5) = 7 and A000041(6) = 11 are prime.
-
for(k=1, 5000, if(ispseudoprime(numbpart(k))&&ispseudoprime(numbpart(k+1)), print1(k, ", ")))
A355706
Indices k of partition function p where p(k) is a twin prime.
Original entry on oeis.org
3, 4, 5, 6, 13, 186, 3542, 2335166
Offset: 1
13 is a term because A000041(13) = 101 is prime and 101 and 103 are twin primes.
-
for(n=1, 3600, if(ispseudoprime(p=numbpart(n))&&(ispseudoprime(p-2)||ispseudoprime(p+2)), print1(n, ", ")))
A355705
Indices k of partition function p where p(k) and p(k) - 2 are twin primes.
Original entry on oeis.org
4, 5, 186, 3542
Offset: 1
4 is a term because A000041(4) = 5, and 3 and 5 are twin primes.
5 is a term because A000041(5) = 7, and 5 and 7 are twin primes.
-
for(n=1, 3600, if(ispseudoprime(p=numbpart(n))&&ispseudoprime(p-2), print1(n, ", ")))
A355704
Indices k of partition function p where p(k) and p(k) + 2 are twin primes.
Original entry on oeis.org
3, 4, 6, 13, 2335166
Offset: 1
13 is a term because A000041(13) = 101 is prime and 103 is prime.
-
for(n=1, 2500, if(ispseudoprime(p=numbpart(n))&&ispseudoprime(p+2), print1(n,", ")))
A334993
Numbers k such that 2*3^k + 1 is prime and divides Phi(3^m, 2).
Original entry on oeis.org
1, 5, 9, 17, 57, 65, 897, 4217, 6225, 152529, 3648969, 5570081
Offset: 1
-
dp(n)=Mod(2,2*3^n+1)^3^n==1;
forstep(n=1,6225,2,if(dp(n),print1(n,", ")))
A298206
a(n) is the smallest b >= 2 such that b^(6*2^n) - b^(3*2^n) + 1 is prime.
Original entry on oeis.org
6, 3, 3, 6, 5, 106, 207, 569, 224, 736, 2854, 21234, 14837, 165394, 24743, 62721, 237804, 143332
Offset: 0
2^12 - 2^6 + 1 = 4033 is composite and 3^12 - 3^6 + 1 = 530713 is prime, so a(1) = 3.
-
for(n=0,9,for(b=2,1000,x=b^(3*2^n); if(isprime(x*(x-1)+1), print1(b,", "); break)))
A288451
Numbers n such that !n + 7 is prime.
Original entry on oeis.org
0, 3, 4, 5, 7, 10, 12, 20, 37, 52, 73, 149, 304, 540, 2135, 7112, 7436, 9357
Offset: 1
4 is a term, because 0! + 1! + 2! + 3! + 7 = 17 is prime.
-
Do[ If[ PrimeQ[ Sum[ k!, {k, 0, n - 1} ] + 7 ], Print[ n ] ], {n, 1, 600} ]
Join[{0},Flatten[Position[Accumulate[Range[0,600]!]+7,?PrimeQ]]] (* The program generates the first 14 terms. To generate more increase the Range constant, but the program may take a long time to run. *) (* _Harvey P. Dale, May 21 2021 *)
-
s=0; for(n=0,600,if(ispseudoprime(s + 7),print1(n,", ")); s+=n!)
Comments