A184867 Numbers m such that prime(m) is of the form floor(1/2+k*sqrt(2)). Complement of A184870.

2, 4, 5, 6, 7, 9, 11, 12, 13, 15, 17, 18, 20, 22, 23, 24, 27, 28, 29, 30, 31, 33, 34, 36, 37, 38, 39, 40, 42, 43, 45, 46, 47, 48, 50, 51, 52, 55, 56, 57, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 70, 72, 74, 75, 76, 77, 78, 80, 81, 82, 83, 84, 86, 88, 89, 91, 92, 94, 95, 96, 97, 99, 101, 102, 103, 104, 105, 106, 107, 108, 110, 111, 113, 114, 115, 116, 117, 119, 120, 122, 123, 124, 126, 127, 129, 130, 133, 134, 135, 136, 140, 143, 144, 145, 146

Offset: 1

Author

Clark Kimberling, Jan 23 2011

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A022846, A184865, A184866, A184870.

Programs

Mathematica

r=2^(1/2); h=1/2; a[n_]:=Floor[n*r+h];
Table[a[n], {n, 1, 120}] (* A022846, int. nearest 2^(1/2) *)
t1={}; Do[If[PrimeQ[a[n]], AppendTo[t1, a[n]]], {n, 1, 600}]; t1
t2={}; Do[If[PrimeQ[a[n]], AppendTo[t2, n]], {n, 1, 600}]; t2
t3={}; Do[If[MemberQ[t1, Prime[n]], AppendTo[t3, n]], {n, 1, 300}]; t3
(* Lists t1, t2, t3 match A184865, A184866, A184867. *)