OFFSET

1,1

COMMENTS

Conjecture: sequence is infinite.

LINKS

Amiram Eldar, Table of n, a(n) for n = 1..10000

EXAMPLE

1361 is a term because it is prime and 1363 = 29*47 and abs(29*phi - 47) = 0.07701... < 1.

MATHEMATICA

f[p_] := Module[{x = GoldenRatio * p}, p1 = NextPrime[x, -1]; p2 = NextPrime[p1]; q = If[x - p1 < p2 - x, p1, p2]; If[Abs[q - x] < 1, q, 0]]; seq = {}; p = 1; Do[p = NextPrime[p]; q = f[p]; If[q > 0 && PrimeQ[p*q - 2], AppendTo[seq, p*q - 2]], {1000}]; seq (* Amiram Eldar, Nov 29 2019 *)

CROSSREFS

KEYWORD

nonn

AUTHOR

Jason Earls, Aug 31 2005

EXTENSIONS

a(15)-a(26) from Donovan Johnson, Nov 17 2008

STATUS

approved