login
A184870
Numbers m such that prime(m) is of the form floor[(k-1/2)*(2+2^(1/2))+1/2]; complement of A184867.
4
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
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 23 2011
STATUS
approved