A184870 Numbers m such that prime(m) is of the form floor[(k-1/2)*(2+2^(1/2))+1/2]; complement of A184867.

1, 3, 8, 10, 14, 16, 19, 21, 25, 26, 32, 35, 41, 44, 49, 53, 54, 58, 69, 71, 73, 79, 85, 87, 90, 93, 98, 100, 109, 112, 118, 121, 125, 128, 131, 132, 137, 138, 139, 141, 142, 149, 153, 159, 160, 161, 164, 169, 171, 174, 181, 182, 192, 196, 199, 202, 207, 209, 213, 218, 219, 221, 226, 228, 231, 235, 236, 240, 242, 246, 249, 255, 258, 259, 266, 267, 270, 273, 275, 277, 279, 280, 287, 292, 294, 297, 299, 303

Offset

1,2

Links

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

Mathematica

a[n_]:=Floor[(n-1/2)*(2+2^(1/2))+1/2];
Table[a[n], {n, 1, 120}]  (* A063957 *)
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, 400}]; t3
(* Lists t1, t2, t3 match A184868, A184869, A184870. *)

Crossrefs

Cf. A063957, A184868, A184869.

Sequence in context: A263005 A126581 A003038 * A073547 A047356 A083246

Adjacent sequences: A184867 A184868 A184869 * A184871 A184872 A184873

Keyword

nonn

Author

Clark Kimberling, Jan 23 2011

Status

approved