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,1

Links

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

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. *)

Crossrefs

Cf. A022846, A184865, A184866, A184870.

Sequence in context: A255165 A047316 A099593 * A029903 A242871 A026420

Adjacent sequences: A184864 A184865 A184866 * A184868 A184869 A184870

Keyword

nonn

Author

Clark Kimberling, Jan 23 2011

Status

approved