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