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