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