A379754 Records in A379752.

1, 2, 3, 4, 6, 7, 9, 11, 12, 15, 16, 19, 21, 23, 27, 28, 37, 40, 47, 53, 57, 59, 66, 67, 69, 73, 79, 81, 85, 88, 92, 103, 117, 125, 133, 146, 147, 153, 165, 175, 185, 189, 197, 204, 227, 229, 237, 245, 269, 281, 289, 306, 311, 321, 349, 367, 393, 397, 417, 428

Offset

1,2

Comments

See comments in A379752.

Links

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

Mathematica

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

Crossrefs

Cf. A379554, A379752, A379753.

Sequence in context: A026468 A263015 A056176 * A143831 A087072 A234852

Adjacent sequences: A379751 A379752 A379753 * A379755 A379756 A379758

Keyword

nonn

Author

Michael De Vlieger, Jan 01 2025

Status

approved