A379594 Records in A379592.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 14, 15, 17, 18, 19, 20, 21, 23, 24, 27, 28, 29, 31, 32, 34, 35, 36, 39, 41, 44, 47, 48, 49, 53, 55, 59, 62, 63, 71, 72, 74, 83, 84, 89, 95, 96, 104, 107, 111, 119, 120, 125, 127, 134, 139, 143, 149, 159, 161, 167, 179, 180

Offset

1,2

Comments

See comments in A379593.

Compare with A036965 and A379554.

Links

Michael De Vlieger, Table of n, a(n) for n = 1..119

Mathematica

(* Load function f at A025487 *)
r = 0; s = Union@ Flatten@ f[10]; nn = Length[s];
rad[x_] := Times @@ FactorInteger[x][[All, 1]];
  Transpose@ Reap[Monitor[
    Do[k = s[[i]];
      If[# > r, r = #; Sow[r]] &@
        Count[Transpose@ {#, k/#} &@ #[[2 ;; Ceiling[Length[#]/2]]] &@ Divisors[k],
          _?(And[rad[#1] == rad[#2],
            Xor[Divisible[#2, #1],
                Divisible[#1, #2]]] & @@ # &)], {i, nn}], {i, nn}] ][[-1, 1]]

Crossrefs

Cf. A036965, A379554, A379592, A379593.

Sequence in context: A028830 A327749 A171828 * A246450 A049814 A028828

Adjacent sequences: A379591 A379592 A379593 * A379595 A379596 A379597

Keyword

nonn

Author

Michael De Vlieger, Dec 30 2024

Status

approved