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

A088514 Smaller section of edge A089025(n) by integral cevian A088513(n).

Original entry on oeis.org

3, 7, 5, 11, 7, 13, 16, 9, 32, 17, 40, 11, 19, 55, 40, 24, 13, 23, 65, 69, 25, 56, 15, 75, 32, 104, 56, 29, 17, 87, 85, 31, 119, 72, 93, 64, 144, 95, 40, 35, 133, 21, 136, 105, 37, 105, 111, 88, 23, 185, 152, 176, 80, 41, 115
Offset: 1

Views

Author

Lekraj Beedassy, Nov 14 2003

Keywords

Comments

Obviously, larger section is A089025(n) - a(n).

Programs

  • Mathematica
    findPrimIntEquiSmallSection[maxC_] :=
    Reap[Do[Do[
         With[{cevian = Abs[c E^((2 \[Pi] I)/6) - a]},
          If[FractionalPart[cevian] == 0 && GCD[a, c] == 1,
           Sow[a]; Break[]]], {a, Floor[c/2],
          1, -1}], {c, maxC}]][[2, 1]]
    (* Andrew Turner, Aug 04 2017 *)

Formula

Larger section is A089025(n) - a(n) = A088586(n). a(n) = (A089025(n) - A088587(n))/2. - Lekraj Beedassy, Nov 25 2003

Extensions

a(7) changed from 18 to 16 by W. D. Smith, Mar 04 2012 (N. J. A. Sloane, Dec 05 2012)
a(42) changed from 105 to 21, and a(52)=176 inserted by Andrew Turner, Aug 04 2017

A088586 Larger section of edge A089025(n) by integral cevian A088513(n).

Original entry on oeis.org

5, 8, 16, 24, 33, 35, 39, 56, 45, 63, 51, 85, 80, 57, 77, 95, 120, 120, 88, 91, 143, 115, 161, 112, 175, 105, 165, 195, 208, 160, 168, 224, 145, 203, 187, 221, 155, 217, 279, 288, 192, 320, 209, 247, 323, 272, 280, 315, 385, 231, 273, 259, 357, 399, 333
Offset: 1

Views

Author

Lekraj Beedassy, Nov 20 2003

Keywords

Programs

  • Mathematica
    findPrimIntEquiLargeSection[maxC_] :=
    Reap[Do[Do[
         With[{cevian = Abs[c E^((2 \[Pi] I)/6) - a]},
          If[FractionalPart[cevian] == 0 && GCD[a, c] == 1,
           Sow[c - a]; Break[]]], {a, Floor[c/2],
          1, -1}], {c, maxC}]][[2, 1]]
    (* Andrew Turner, Aug 04 2017 *)

Formula

a(n) = (A089025(n) + A088587(n))/2. - Lekraj Beedassy, Nov 25 2003

Extensions

Repeated 112 at a(24) and a(25) removed, and order of a(35)=187 and a(36)=221 reversed by Andrew Turner, Aug 04 2017
Showing 1-2 of 2 results.