This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A184810 Numbers m such that prime(m) has the form floor(k*r), where r=sqrt(2/3); complement of A184811. 3
 2, 3, 4, 8, 9, 10, 13, 14, 15, 17, 18, 19, 22, 23, 24, 26, 27, 28, 31, 34, 38, 39, 41, 42, 45, 46, 48, 49, 52, 53, 55, 56, 59, 60, 61, 66, 68, 72, 75, 76, 78, 79, 81, 82, 85, 86, 88, 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 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS MATHEMATICA r=(2/3)^(1/2); s=(3/2)^(1/2); (* complementary because of joint ranking of i*sqrt(2) and j*sqrt(3) *) a[n_]:=n+Floor [n*r]; b[n_]:=n+Floor [n*s]; Table[a[n], {n, 1, 120}]  (* A184808 *) Table[b[n], {n, 1, 120}]  (* A184809 *) t1={}; Do[If[PrimeQ[a[n]], AppendTo[t1, a[n]]], {n, 1, 600}] t2={}; Do[If[PrimeQ[a[n]], AppendTo[t2, n]], {n, 1, 600}] t3={}; Do[If[MemberQ[t1, Prime[n]], AppendTo[t3, n]], {n, 1, 300}]; t3 t4={}; Do[If[PrimeQ[b[n]], AppendTo[t4, b[n]]], {n, 1, 600}] t5={}; Do[If[PrimeQ[b[n]], AppendTo[t5, n]], {n, 1, 600}] t6={}; Do[If[MemberQ[t4, Prime[n]], AppendTo[t6, n]], {n, 1, 300}]; t6 (* t3 and t6 match A184810 and A184811 *) CROSSREFS Cf. A184808, A184809, A184811. Sequence in context: A288860 A132115 A230998 * A246293 A047228 A032968 Adjacent sequences:  A184807 A184808 A184809 * A184811 A184812 A184813 KEYWORD nonn AUTHOR Clark Kimberling, Jan 22 2011 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 26 15:27 EDT 2017. Contains 292531 sequences.