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.

A171969 Smallest prime greater than phi^n.

Original entry on oeis.org

2, 3, 5, 7, 13, 19, 31, 47, 79, 127, 211, 331, 523, 853, 1367, 2207, 3581, 5779, 9371, 15131, 24481, 39607, 64081, 103687, 167771, 271451, 439217, 710663, 1149857, 1860503, 3010363, 4870861, 7881221, 12752053, 20633279
Offset: 1

Views

Author

Michel Lagneau, Nov 19 2010

Keywords

Examples

			The first prime > phi^6 = 17.94427... is 19, so a(6) = 19.
		

Crossrefs

Programs

  • Mathematica
    p[n_] := Module[{r, i}, r = 2; i = 1; While[r <= n, i = i + 1; r = Prime[i]];  r]; Table[p[GoldenRatio^n], {n, 1, 35}]
    NextPrime[GoldenRatio^Range[40]] (* Harvey P. Dale, Dec 06 2013 *)
  • PARI
    a(n)=nextprime(((1+sqrt(5))/2)^n) \\ Charles R Greathouse IV, Jul 29 2011