This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A184799 #10 May 04 2020 16:30:32 %S A184799 2,7,11,23,37,47,59,61,73,89,97,101,113,127,137,139,149,151,163,167, %T A184799 179,191,227,229,241,257,269,281,283,293,307,317,331,347,359,373,383, %U A184799 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 A184799 Primes of the form floor(k*s), where s=(3+sqrt(3))/2. %H A184799 Robert Israel, <a href="/A184799/b184799.txt">Table of n, a(n) for n = 1..10000</a> %e A184799 See A184796. %p A184799 filter:= proc(p) local v, k; %p A184799 v:= p*(1-1/sqrt(3)); %p A184799 k:= ceil(v); %p A184799 is((v-k+1)^2 > 1/3) %p A184799 end proc: %p A184799 select(filter, [seq(ithprime(i),i=1..200)]); # _Robert Israel_, May 04 2020 %t A184799 (See A184796.) %Y A184799 Cf. A184796, A184800, A184801. %K A184799 nonn %O A184799 1,1 %A A184799 _Clark Kimberling_, Jan 22 2011