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

2, 7, 11, 23, 37, 47, 59, 61, 73, 89, 97, 101, 113, 127, 137, 139, 149, 151, 163, 167, 179, 191, 227, 229, 241, 257, 269, 281, 283, 293, 307, 317, 331, 347, 359, 373, 383, 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

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Example

See A184796.

Maple

filter:= proc(p) local v, k;
  v:= p*(1-1/sqrt(3));
  k:= ceil(v);
  is((v-k+1)^2 > 1/3)
end proc:
select(filter, [seq(ithprime(i), i=1..200)]); # Robert Israel, May 04 2020

Mathematica

(See A184796.)

Crossrefs

Cf. A184796, A184800, A184801.

Sequence in context: A144707 A045373 A075431 * A045374 A168032 A329309

Adjacent sequences: A184796 A184797 A184798 * A184800 A184801 A184802

Keyword

nonn

Author

Clark Kimberling, Jan 22 2011

Status

approved