OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
5709 = 3*11*173 is in the sequence because 3+11+173 = 187 = 11*17 and 11*phi-17 = 0.79837... < 1.
MATHEMATICA
goldQ[n_] := Module[{f = FactorInteger[n]}, If[Length[f] != 2, False, If[Max[f[[;; , 2]]] != 1, False, Abs[f[[2, 1]] - f[[1, 1]] * GoldenRatio] < 1]]]; sumPrimes[n_] := Plus @@ Times @@@ FactorInteger[n]; Select[Range[7500], goldQ[sumPrimes[#]] &] (* Amiram Eldar, Nov 29 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Jun 16 2005
STATUS
approved