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.

A004937 a(n) = round(n*phi^2), where phi is the golden ratio, A001622.

Original entry on oeis.org

0, 3, 5, 8, 10, 13, 16, 18, 21, 24, 26, 29, 31, 34, 37, 39, 42, 45, 47, 50, 52, 55, 58, 60, 63, 65, 68, 71, 73, 76, 79, 81, 84, 86, 89, 92, 94, 97, 99, 102, 105, 107, 110, 113, 115, 118, 120, 123, 126, 128, 131, 134, 136, 139, 141, 144, 147, 149, 152, 154, 157
Offset: 0

Views

Author

Keywords

Crossrefs

Programs

  • Magma
    [Round((3+Sqrt(5))*n/2): n in [0..80]]; // G. C. Greubel, Sep 13 2023
    
  • Mathematica
    a[n_] := Round[n*GoldenRatio^2]; Array[a, 50, 0] (* Amiram Eldar, Jun 17 2022 *)
  • PARI
    a(n)=round(n*(sqrt(5)+3)/2) \\ Charles R Greathouse IV, Aug 28 2016
    
  • SageMath
    [round(golden_ratio^2*n) for n in range(81)] # G. C. Greubel, Sep 13 2023

A004938 a(n) = round(n*phi^3), where phi is the golden ratio, A001622.

Original entry on oeis.org

0, 4, 8, 13, 17, 21, 25, 30, 34, 38, 42, 47, 51, 55, 59, 64, 68, 72, 76, 80, 85, 89, 93, 97, 102, 106, 110, 114, 119, 123, 127, 131, 136, 140, 144, 148, 152, 157, 161, 165, 169, 174, 178, 182, 186, 191, 195, 199
Offset: 0

Views

Author

Keywords

Comments

Nearest integer to n*phi^3.

Crossrefs

Programs

  • Magma
    [Round((2+Sqrt(5))*n): n in [0..80]]; // G. C. Greubel, Oct 17 2023
    
  • Mathematica
    Round[GoldenRatio^3*Range[0, 80]] (* G. C. Greubel, Oct 17 2023 *)
  • PARI
    a(n) = round(n*(((sqrt(5)+1))/2)^3); \\ Michel Marcus, Aug 28 2016
    
  • SageMath
    [round(golden_ratio^3*n) for n in range(81)] # G. C. Greubel, Oct 17 2023

A004975 a(n) = ceiling(n*phi^20), where phi is the golden ratio, A001622.

Original entry on oeis.org

0, 15127, 30254, 45381, 60508, 75635, 90762, 105889, 121016, 136143, 151270, 166397, 181524, 196651, 211778, 226905, 242032, 257159, 272286, 287413, 302540, 317667, 332794, 347921, 363048, 378175, 393302, 408429, 423556, 438683, 453810, 468937, 484064, 499191, 514318, 529445, 544572, 559699
Offset: 0

Views

Author

Keywords

Comments

Not the same as A004955: a(n) != A004955(n) for n=7564. [Joerg Arndt, Sep 17 2013]

Programs

  • Mathematica
    With[{c=GoldenRatio^20},Ceiling[c*Range[0,40]]] (* Harvey P. Dale, Jul 17 2018 *)

Formula

a(n) >= A004955(n). [R. J. Mathar, Oct 28 2008]
Showing 1-3 of 3 results.