|
%I #7 Feb 04 2015 01:16:34
%S 3,5,7,19,23,37,41,43,47,59,61,79,83,97,101,103,113,137,139,151,157,
%T 173,179,191,193,197,211,227,229,233,251,269,271,293,307,311,331,347,
%U 349,359,367,379,383,397,401,419,421,439,443,457,461,463,479,499,557,569,571,577,587,593,607,613,631,647,653,683,691,701,709,719,727,739,743,757,761,797,821,823,839,853,857,859,877,911,929,937,947,953,967,971,991,1009,1013,1031,1049,1051,1061,1063,1069
%N Primes of the form floor(k*s), where s=(5+sqrt(5))/4.
%e See A184802.
%t (See A184802.)
%t With[{s=(5+Sqrt[5])/4},Select[Table[Floor[s*n],{n,600}],PrimeQ]] (* _Harvey P. Dale_, Feb 04 2015 *)
%Y Cf. A184774, A108598, A184802, A184806, A184807.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 22 2011
|
