A184799 - OEIS

%I #10 May 04 2020 16:30:32

%S 2,7,11,23,37,47,59,61,73,89,97,101,113,127,137,139,149,151,163,167,

%T 179,191,227,229,241,257,269,281,283,293,307,317,331,347,359,373,383,

%U 397,409,421,449,461,463,487,499,503,541,563,577,593,617,619,631,641,643,653,683,709,719,733,757,761

%N Primes of the form floor(k*s), where s=(3+sqrt(3))/2.

%H Robert Israel, <a href="/A184799/b184799.txt">Table of n, a(n) for n = 1..10000</a>

%e See A184796.

%p filter:= proc(p) local v, k;

%p   v:= p*(1-1/sqrt(3));

%p   k:= ceil(v);

%p   is((v-k+1)^2 > 1/3)

%p end proc:

%p select(filter, [seq(ithprime(i),i=1..200)]); # _Robert Israel_, May 04 2020

%t (See A184796.)

%Y Cf. A184796, A184800, A184801.

%K nonn

%O 1,1

%A _Clark Kimberling_, Jan 22 2011