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
Keywords
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..119
Programs
-
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]]
Comments