%I #10 Aug 02 2019 23:01:48
%S 1,1,3,7,7,11,15,15,19,23,27,31,31,35,37,39,39,47,55,55,57,59,61,63,
%T 67,71,71,73,75,77,79,87,89,91,95,97,99,111,111,113,115,119,119,121,
%U 125,127,131,135,137,143
%N Corresponding values of antiharmonic means B(h) to numbers h from A179871 (numbers h such that antiharmonic mean of the numbers k < h such that gcd(k, h) = 1 is integer).
%C Conjecture: a(n) = nondecreasing sequence of odd numbers.
%H Ivan Neretin, <a href="/A179873/b179873.txt">Table of n, a(n) for n = 1..2500</a>
%F a(n) = A053818(A179871(n)) / A023896(A179871(n)) = A175505(A179871(n)).
%e a(6) = A175505(A179871(6)) = A175505(17) = 11 = B(17).
%t B[n_] := Plus @@ ((ks = Select[Range[n], GCD[n, #] == 1 &])^2)/Plus @@ ks; Select[B /@ Range[215], IntegerQ] (* _Ivan Neretin_, May 22 2015 *)
%Y Cf. A179871, A179872, A179874, A179875, A179876, A179877, A179878, A179879, A179880, A179882, A179883, A179884, A179885, A179886, A179887, A179890, A179891.
%K nonn
%O 1,3
%A _Jaroslav Krizek_, Jul 30 2010, Jul 31 2010