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