OFFSET
1,1
COMMENTS
Each term is a representative of the class of numbers with quotient n.
A364169 is the smallest m = b*c without requiring an increasing sequence. Sometimes the present sequence is still that minimum, a(n) = A364169(n).
Also subsequence of A364202.
Is a(n) = A062158(n+1) + 1 for n >= 6? - Hugo Pfoertner, Jul 23 2023
EXAMPLE
For n = 7, a(7) = 456 because it is the smallest number m > 301 = a(6) that has a pair of distinct proper divisors b = 8 and c = 57 that give b*c = 8*57 = 456 and (b+c)*n = (8 + 57)*7 = 456 - 1.
MATHEMATICA
f[kmin_, n_] := f[kmin, n] = Module[{k = kmin + 1}, While[PrimeQ[k] || !AnyTrue[Rest@ Divisors[k], #^2 <= k && k - 1 == (# + k/#)*n &], k++]; k]; Rest@ FoldList[f][Join[{5}, Range[50]]] (* Amiram Eldar, Jul 12 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jose Aranda, Jul 12 2023
EXTENSIONS
More terms from Amiram Eldar, Jul 12 2023
STATUS
approved