|
|
A171969
|
|
Smallest prime greater than phi^n.
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
The first prime > phi^6 = 17.94427... is 19, so a(6) = 19.
|
|
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}]
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|