OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..99
Amiram Eldar, Table of n, a(n), A342400(a(n)) for n = 1..99
EXAMPLE
The first 6 terms of A342400 are 1, 3, 3, 3, 3 and 12. The record values, 1, 3 and 12, occur are 1, 2 and 6, the first 3 terms of this sequence.
MATHEMATICA
f[n_] := Module[{d = Select[Divisors[n], CoprimeQ[#, n/#] &], x, s, m, c}, m = Length[d]; s = Plus @@ d; c = Rest @ CoefficientList[Series[Product[1 + x^d[[i]], {i, 1, m}], {x, 0, s}], x]; Count[c, _?(# > 0 &)]]; fmax = -1; seq = {}; Do[f1 = f[n]; If[f1 > fmax, fmax = f1; AppendTo[seq, n]], {n, 1, 10^3}]; seq
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Mar 10 2021
STATUS
approved