This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A344273 #6 May 14 2021 02:54:05 %S A344273 1,6,24,80,273,960,3336,11480,39648,136952,472416,1630164,5625480, %T A344273 19412736,66992016,231184800,797806152,2753187210,9501109380, %U A344273 32787848746 %N A344273 a(n) is the least k such that the average number of bi-unitary divisors of {1..k} is >= n. %F A344273 Lim_{n->oo} a(n+1)/a(n) = exp(1/A) = 3.4509501567..., where A is A306071. %e A344273 a(2) = 6 since the average number of bi-unitary divisors of {1..6} is A306069(6)/6 = 13/6 > 2. %t A344273 f[p_, e_] := If[OddQ[e], e + 1, e]; bdivnum[1] = 1; bdivnum[n_] := Times @@ (f @@@ FactorInteger[n]); seq={}; s = 0; k = 1; Do[While[s = s + bdivnum[k]; s < k*n, k++]; AppendTo[seq, k]; k++, {n, 1, 10}]; seq %Y A344273 Cf. A286324, A306069, A306071. %Y A344273 The unitary version of A085829. %Y A344273 Similar sequences: A328331, A336304, A338891, A338943, A344272, A344274. %K A344273 nonn,more %O A344273 1,2 %A A344273 _Amiram Eldar_, May 13 2021