A377525 Records in A376281.

1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 13, 14, 15, 17, 21, 23, 27, 29, 35, 39, 41, 45, 51, 53, 59, 61, 63, 75, 76, 81, 89, 93, 96, 105, 107, 117, 123, 129, 137, 155, 160, 161, 173, 185, 197, 200, 205, 217, 245, 251, 289, 311, 315, 337, 341, 357, 365, 377, 381, 405, 408

Offset

1,2

Links

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

Mathematica

(* Load function f at A025487 *)
r = 0; s = Select[Union@ Flatten@ f[12][[3 ;; -1]], Not@*SquareFreeQ];
nn = Length[s]; Print[nn];
Reap[Monitor[Do[k = s[[i]];
  If[# > r, r = #; Sow[r]] &@
    Count[Transpose@ {#, k/#} &@ #[[2 ;; Ceiling[Length[#]/2]]] &@ Divisors[k],
      _?(And[1 < GCD @@ {##}, Mod[#1, #2] != 0,
           Mod[#2, #1] != 0] & @@ # &)], {i, nn}], i] ][[-1, 1]]

Crossrefs

Cf. A379336, A376281, A376687.

Sequence in context: A037143 A236105 A292050 * A048627 A152757 A062462

Adjacent sequences: A377522 A377523 A377524 * A377526 A377527 A377528

Keyword

nonn

Author

Michael De Vlieger, Jan 09 2025

Status

approved