A379774 Records in A379772.
1, 2, 3, 5, 6, 9, 10, 11, 13, 14, 16, 17, 18, 19, 23, 25, 26, 30, 33, 38, 42, 47, 48, 52, 57, 60, 61, 66, 73, 81, 86, 90, 93, 94, 98, 105, 112, 120, 124, 129, 132, 138, 143, 148, 154, 155, 177, 196, 203, 204, 225, 228, 244, 267, 269, 273, 282, 300, 318, 342, 345
Offset: 1
Keywords
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..171
Programs
-
Mathematica
(* Load function f at A025487 *) r = 0; s = Select[Union@ Flatten@ f[8][[3 ;; -1]], Not @* SquareFreeQ]; rad[x_] := Times @@ FactorInteger[x][[All, 1]]; nn = Length[s]; Reap[Do[k = s[[i]]; If[# > r, r = #; Sow[r] ] &@ Count[Transpose@ {#, k/#} &@ #[[2 ;; Ceiling[Length[#]/2]]] &@ Divisors[k], _?((m = GCD @@ {##}; And[! MemberQ[{1, #1, #2}, m], And[PrimeNu[#1] < PrimeNu[#2], Divisible[#2, rad[#1]]] & @@ SortBy[{##}, PrimeNu]]) & @@ # &)], {i, nn}] ][[-1, 1]]