A184869 -id:A184869 - cp's OEIS frontend

A184868 Primes of the form floor((k-1/2)*(2+sqrt(2))+1/2); i.e., primes in A063957.

2, 5, 19, 29, 43, 53, 67, 73, 97, 101, 131, 149, 179, 193, 227, 241, 251, 271, 347, 353, 367, 401, 439, 449, 463, 487, 521, 541, 599, 613, 647, 661, 691, 719, 739, 743, 773, 787, 797, 811, 821, 859, 883, 937, 941, 947, 971, 1009, 1019, 1033, 1087, 1091, 1163, 1193, 1217, 1231, 1279, 1289, 1303, 1361, 1367, 1381, 1429, 1439, 1453, 1483, 1487, 1511, 1531, 1559, 1579, 1613, 1627, 1637, 1699, 1709, 1733, 1753, 1777, 1787, 1801, 1811, 1873, 1907, 1931, 1951, 1979, 1999

Offset: 1

Clark Kimberling, Jan 23 2011

nonn

See "conjecture generalized" at A184774.

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

Cf. A184774, A184869, A184870.

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

lista(nn) = for (k=1, nn, if (isprime(p=floor((k-1/2)*(2+sqrt(2))+1/2)), print1(p, ", "))); \\ Michel Marcus, Jan 30 2018

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

Original entry on oeis.org

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

Clark Kimberling, Jan 23 2011

nonn

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

Cf. A063957, A184868, A184869.

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

cp's OEIS Frontend

A184868 Primes of the form floor((k-1/2)*(2+sqrt(2))+1/2); i.e., primes in A063957.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI