|
%I #13 Apr 21 2021 04:25:46
%S 2,3,4,11,13,21,23,24,26,33,34,44,46,54,56,57,63,76,77,84,87,96,99,
%T 106,107,109,117,126,127,129,139,149,150,162,170,172,183,192,193,199,
%U 203,210,212,220,222,232,233,243,245,253,255,256,265,276,308,315,316,319,325,328,336,339,349,358,361,378,382,388,392,398,402,409,411,419,421,441,454,455,464,472,474,475,485,504,514,518,524,527,535,537,548,558,560,570,580,581,587,588,591
%N Numbers k such that floor(k*s) is prime, where s = (5 + sqrt(5))/4.
%e See A184802.
%t (See A184802.)
%t With[{s=(5+Sqrt[5])/4},Select[Range[600],PrimeQ[Floor[#*s]]&]] (* _Harvey P. Dale_, Jul 04 2014 *)
%Y Cf. A108598, A184802, A184807.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 22 2011
|
