cp's OEIS Frontend

A184810 Numbers m such that prime(m) has the form floor(k*r), where r=sqrt(2/3); complement of A184811.

%I A184810 #7 Mar 30 2012 18:57:17
%S A184810 2,3,4,8,9,10,13,14,15,17,18,19,22,23,24,26,27,28,31,34,38,39,41,42,
%T A184810 45,46,48,49,52,53,55,56,59,60,61,66,68,72,75,76,78,79,81,82,85,86,88,
%U A184810 89,90,92,95,96,98,99,100,102,103,106,108,109,110,112,113,114,116,117,119,120,121,122,123,124,126,128,130,131,134,135,137,139,141,142,146,147,148,149,151,152,156,157,159,162,164,165,167,168,169,170,171,173,174,175,176,177,180
%N A184810 Numbers m such that prime(m) has the form floor(k*r), where r=sqrt(2/3); complement of A184811.
%t A184810 r=(2/3)^(1/2);s=(3/2)^(1/2); (* complementary because of joint ranking of i*sqrt(2) and j*sqrt(3) *)
%t A184810 a[n_]:=n+Floor [n*r]; b[n_]:=n+Floor [n*s];
%t A184810 Table[a[n],{n,1,120}]  (* A184808 *)
%t A184810 Table[b[n],{n,1,120}]  (* A184809 *)
%t A184810 t1={};Do[If[PrimeQ[a[n]], AppendTo[t1,a[n]]],{n,1,600}]
%t A184810 t2={};Do[If[PrimeQ[a[n]], AppendTo[t2,n]],{n,1,600}]
%t A184810 t3={};Do[If[MemberQ[t1,Prime[n]],AppendTo[t3,n]],{n,1,300}];t3
%t A184810 t4={};Do[If[PrimeQ[b[n]], AppendTo[t4,b[n]]],{n,1,600}]
%t A184810 t5={};Do[If[PrimeQ[b[n]], AppendTo[t5,n]],{n,1,600}]
%t A184810 t6={};Do[If[MemberQ[t4,Prime[n]],AppendTo[t6,n]],{n,1,300}];t6
%t A184810 (* t3 and t6 match A184810 and A184811 *)
%Y A184810 Cf. A184808, A184809, A184811.
%K A184810 nonn
%O A184810 1,1
%A A184810 _Clark Kimberling_, Jan 22 2011