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: A379589 A379592 A379593 * A379605 A379610 A379611

Keyword

nonn,new

Author

Michael De Vlieger, Dec 30 2024

Status

approved