cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

A244408 Even numbers 2k such that the smallest prime p satisfying p+q=2k (q prime) is greater than or equal to sqrt(2k).

Original entry on oeis.org

4, 6, 8, 12, 18, 24, 30, 38, 98, 122, 126, 128, 220, 302, 308, 332, 346, 488, 556, 854, 908, 962, 992, 1144, 1150, 1274, 1354, 1360, 1362, 1382, 1408, 1424, 1532, 1768, 1856, 1928, 2078, 2188, 2200, 2438, 2512, 2530, 2618, 2642, 3458, 3818, 3848
Offset: 1

Views

Author

Jon Perry, Jun 27 2014

Keywords

Comments

a(74) = 63274 is probably the last term. Oliveira e Silva's work shows there are no more terms below 4*10^18. The largest p below that is p = 9781 for 2k = 3325581707333960528, where sqrt(2k) = 1823617752. - Jens Kruse Andersen, Jul 03 2014
The sequence definition is equivalent to: "Even integers k such that there exists a prime p with p = min{q: q prime and (k-q) prime} and k <= p^2" and therefore this is a member of the EGN-family (Cf. A307782). - Corinna Regina Böger, May 01 2019

Examples

			The smallest prime for 38 is 7, and 7 >= sqrt(38).

Links

Crossrefs

Cf. A020481, A002373, A025018, A025019, A306746, A307782.

Programs

  • Haskell
    a244408 n = a244408_list !! (n-1)
a244408_list = map (* 2) $ filter f [2..] where
   f x = sqrt (fromIntegral $ 2 * x) <= fromIntegral (a020481 x)
-- Reinhard Zumkeller, Jul 07 2014
  • PARI
    for(n=1, 50000, forprime(p=2, n, if(isprime(2*n-p), if(p>=sqrt(2*n), print1(2*n", ")); break))) \\ Jens Kruse Andersen, Jul 03 2014

A327772 Integers for which the Goldbach factorization graph contains exceptional autonomous component (see link for definitions).

Original entry on oeis.org

128, 1718, 1862, 1928, 2200, 6142
Offset: 1

Views

Author

Michel Marcus, Sep 25 2019

Keywords

Comments

No more terms up to 10^6.

Links

Crossrefs

A306746 is a subsequence.

A351899 Integers k for which there exist two distinct prime nondivisors p, q < k such that, for all i, j >= 0, p^i*q^j mod k is either 1 or is divisible by p or q.

Original entry on oeis.org

5, 10, 16, 18, 19, 20, 21, 22, 38, 48, 50, 51, 54, 60, 61, 67, 75, 77, 78, 80, 85, 90, 91, 98, 100, 108, 120, 122, 126, 127, 134, 147, 150, 154, 160, 170, 182, 189, 201, 204, 210, 217, 234, 234, 240, 252, 254, 255, 266, 268, 288, 291, 294, 300, 310, 320, 328, 336, 340, 348, 360, 362, 364
Offset: 1

Views

Author

Craig J. Beisel, Feb 24 2022

Keywords

Comments

Conjecture: The prime nondivisors p and q are elements of the reduced residue system consisting of the totatives of k. Assume a triple (k,p,q) which satisfies the definition. If P and Q are the two subgroups generated by p and q respectively and p < q then P >= Q.

Examples

			For k = 20 and p, q = (3,7), p^i*q^j mod k can only take on the values 1, 3, 7, 9 which, other than 1, are all divisible by 3 or 7, so 20 is a term.

Crossrefs

Cf. A306746.

Programs

  • PARI
    for(k=1, 364, test2=0; forprime(p=2, k-1, forprime(q=p+1, k-2, if(gcd(p, k)==1 && gcd(q, k)==1, test=0; for(i=0, eulerphi(k), for(j=0, eulerphi(k), if(p^i*q^j % k >1 && gcd(p^i*q^j % k, p)==1 && gcd(p^i*q^j % k, q)==1, test=1; ); if(test==1, break(2); ); ); ); if(test==0, test2=1; ); ); ); ); if(test2==1, print1(k, ", "); ); );
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.