A179019 a(n) = (A179017(n)+1)/2.

2, 3, 6, 7, 11, 15, 22, 30, 31, 34, 35, 39, 42, 43, 47, 58, 62, 66, 67, 70, 71, 78, 79, 83, 87, 94, 102, 103, 106, 107, 110, 111, 114, 115, 119, 130, 134, 139, 142, 143, 146, 155, 159, 166, 174, 178, 179, 183, 186, 187, 191, 195, 202, 206, 210, 211, 214, 215, 218, 219

Offset: 1

Author

Artur Jasinski, Jun 24 2010

Keywords

• nonn

Comments

For numbers a and c, see A172186 and A179017. Numbers b are this sequence.

These numbers c, with distribution a+b=c such that a=(c-1)/2 and b=(c+1)/2, have minimal possible values with function L(a,b,c) = log(c)/log(N[a,b,c]) = log(c)/log((c^2-1)c/4).

There exist no numbers or distributions for which L < log(c)/log((c^2-1)c/4). - Artur Jasinski

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A172120, A172121, A147298, A147299, A147300, A147301, A147302, A147306, A147307, A147638, A147639, A147640, A147641, A147642, A147643, A143700, A179017, A172186.

Programs

Mathematica

aa = {}; Do[If[(GCD[x, (x - 1)/2] == 1) && (GCD[x, (x + 1)/2] == 1) && (GCD[(x - 1)/2, (x + 1)/2] == 1), If[SquareFreeQ[(x^2 - 1) x/4], AppendTo[aa, (x + 1)/2]]], {x, 2, 1000}]; aa

Formula

a(n) = A179017(n) - A172186(n). - Hugo Pfoertner, Mar 22 2020