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-4 of 4 results.

A108542 Greater prime factor of n-th golden semiprime.

Original entry on oeis.org

3, 5, 11, 17, 31, 37, 47, 59, 67, 109, 127, 157, 163, 167, 173, 211, 241, 263, 271, 293, 313, 367, 389, 439, 449, 457, 503, 571, 593, 613, 619, 643, 661, 677, 701, 727, 739, 787, 823, 911, 983, 991, 1021, 1069, 1163, 1187, 1231, 1289, 1381, 1429, 1487, 1523
Offset: 1

Views

Author

Reinhard Zumkeller, Jun 09 2005

Keywords

Comments

abs(phi*A108541(n) - a(n)) < 1, where phi = golden ratio = (1+sqrt(5))/2.

Crossrefs

Programs

  • Mathematica
    f[p_] := Module[{x = GoldenRatio * p}, p1 = NextPrime[x, -1]; p2 = NextPrime[p1]; q = If[x - p1 < p2 - x, p1, p2]; If[Abs[q - x] < 1, q, 0]]; seq = {}; p=1; Do[p = NextPrime[p]; q = f[p]; If[q > 0, AppendTo[seq, q]], {200}]; seq (* Amiram Eldar, Nov 28 2019 *)

Formula

a(n) = A108540(n)/A108541(n).

A108541 Lesser prime factor of n-th golden semiprime.

Original entry on oeis.org

2, 3, 7, 11, 19, 23, 29, 37, 41, 67, 79, 97, 101, 103, 107, 131, 149, 163, 167, 181, 193, 227, 241, 271, 277, 283, 311, 353, 367, 379, 383, 397, 409, 419, 433, 449, 457, 487, 509, 563, 607, 613, 631, 661, 719, 733, 761, 797, 853, 883, 919, 941, 971, 997, 1031
Offset: 1

Views

Author

Reinhard Zumkeller, Jun 09 2005

Keywords

Comments

abs(phi*a(n) - A108542(n)) < 1, where phi = golden ratio = (1+sqrt(5))/2.

Crossrefs

Programs

  • Mathematica
    f[p_] := Module[{x = GoldenRatio * p}, p1 = NextPrime[x, -1]; p2 = NextPrime[p1]; q = If[x - p1 < p2 - x, p1, p2]; If[Abs[q - x] < 1, q, 0]]; seq = {}; p=1; Do[p = NextPrime[p]; If[f[p] > 0, AppendTo[seq, p]], {200}]; seq (* Amiram Eldar, Nov 28 2019 *)

Formula

a(n) = A108540(n)/A108542(n).

A108543 Primes that are factors of golden semiprimes (A108540).

Original entry on oeis.org

2, 3, 5, 7, 11, 17, 19, 23, 29, 31, 37, 41, 47, 59, 67, 79, 97, 101, 103, 107, 109, 127, 131, 149, 157, 163, 167, 173, 181, 193, 211, 227, 241, 263, 271, 277, 283, 293, 311, 313, 353, 367, 379, 383, 389, 397, 409, 419, 433, 439, 449, 457, 487, 503, 509, 563, 571
Offset: 1

Views

Author

Reinhard Zumkeller, Jun 09 2005

Keywords

Crossrefs

Union of A108541 and A108542.
Complement of A108545.

Extensions

Corrected by T. D. Noe, Oct 25 2006

A108545 Primes that are not factors of golden semiprimes (A108540).

Original entry on oeis.org

13, 43, 53, 61, 71, 73, 83, 89, 113, 137, 139, 151, 179, 191, 197, 199, 223, 229, 233, 239, 251, 257, 269, 281, 307, 317, 331, 337, 347, 349, 359, 373, 401, 421, 431, 443, 461, 463, 467, 479, 491, 499, 521, 523, 541, 547, 557, 569, 577, 587, 599, 601, 617
Offset: 1

Views

Author

Reinhard Zumkeller, Jun 09 2005

Keywords

Comments

Complement of A108543;
abs(a(i) - a(j) * phi) > 1 for all i and j, where phi = golden ratio = (1+sqrt(5))/2.

Crossrefs

Showing 1-4 of 4 results.