OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..48
FORMULA
MATHEMATICA
f[p_] := Module[{x = GoldenRatio * p, p1, p2}, p1 = NextPrime[x, -1]; p2 = NextPrime[p1]; If[p2 - x > x - p1, p1, p2]]; seq={}; k=0; dm = 1; p1 = 1; Do[p1 = NextPrime[p1]; k++; p2 = f[p1]; d = Abs[p2/p1 - GoldenRatio]; If[d < dm, dm = d; AppendTo[seq, k]], {10^4}]; seq (* Amiram Eldar, Nov 28 2019 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Sep 22 2009
EXTENSIONS
a(16)-a(38) from Amiram Eldar, Nov 28 2019
STATUS
approved