OFFSET
1,1
EXAMPLE
A288814(10) / 10 = 21 / 10 and for n < 10 all ratios are less than 21 / 10, so 10 is in the sequence.
MATHEMATICA
Block[{s = Array[If[PrimeQ@ #, 0, Total@ Flatten[ConstantArray[#1, #2] & @@@ FactorInteger@ #]] &, 10^5, 2], t}, t = Table[(1 + FirstPosition[s, k][[1]])/k, {k, 4, LengthWhile[Differences@ Rest@ Union@ s, # == 1 &]}]; Map[3 + FirstPosition[t, #][[1]] &, Union@ FoldList[Max, t]]] (* Michael De Vlieger, Mar 26 2018 *)
PROG
(PARI) isok(k, n) = my(f=factor(k)); sum(j=1, #f~, f[j, 1]*f[j, 2]) == n;
f(n) = forcomposite(k=1, , if (isok(k, n), return(k))); /* A288814 */
lista(nn) = {maxr = 0; for (n=4, nn, if ((newr=f(n)/n) > maxr, print1(n, ", "); maxr = newr); ); } \\ Michel Marcus, Mar 26 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
David A. Corneth, Mar 24 2018
STATUS
approved