OFFSET
1,1
EXAMPLE
See A184802.
MATHEMATICA
(See A184802.)
With[{s=(5+Sqrt[5])/4}, Select[Range[600], PrimeQ[Floor[#*s]]&]] (* Harvey P. Dale, Jul 04 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 22 2011
STATUS
approved