A379288 Irregular triangle read by rows in which row n lists the odd divisors of n excluding odd divisors e for which there exists another divisor j with j < e < 2*j.
1, 1, 1, 3, 1, 1, 5, 1, 1, 7, 1, 1, 3, 9, 1, 5, 1, 11, 1, 1, 13, 1, 7, 1, 3, 15, 1, 1, 17, 1, 1, 19, 1, 1, 3, 7, 21, 1, 11, 1, 23, 1, 1, 5, 25, 1, 13, 1, 3, 9, 27, 1, 1, 29, 1, 1, 31, 1, 1, 3, 11, 33, 1, 17, 1, 5, 35, 1, 1, 37, 1, 19, 1, 3, 13, 39, 1, 1, 41, 1, 1, 43
Offset: 1
Crossrefs
Programs
-
Mathematica
row[n_] := Module[{d = Partition[Divisors[n], 2, 1]}, Select[Join[{1}, Select[d, #[[2]] >= 2*#[[1]] &][[;; , 2]]], OddQ]]; Table[row[n], {n, 1, 50}] // Flatten (* Amiram Eldar, Dec 22 2024 *)
Extensions
More terms from Amiram Eldar, Dec 22 2024
Comments