A054482 Denominator of lowest terms fraction from division of a highly composite number (1) by its predecessor.
1, 1, 2, 1, 1, 2, 3, 4, 1, 2, 3, 2, 1, 6, 2, 3, 2, 1, 2, 3, 2, 3, 4, 10, 11, 9, 10, 2, 3, 2, 3, 4, 5, 2, 9, 5, 12, 2, 3, 2, 3, 4, 5, 2, 9, 5, 4, 3, 5, 4, 2, 15, 17, 12, 5, 2, 9, 5, 4, 3, 5, 4, 2, 15, 19, 2, 15, 2, 19, 18, 5, 4, 3, 5, 4, 2, 3, 2, 3, 2, 6, 35, 92, 21, 23, 35, 92, 21, 2, 23, 21, 2
Offset: 2
Examples
a(7)=2 since A002182(7)=36, A002182(6)=24 and 36/24=3/2 in lowest terms.
Links
- Michael De Vlieger, Table of n, a(n) for n = 2..10000
- Michael De Vlieger, Logarithmic scatterplot of A054483(n)/a(n), n = 2..4096.
- Michael De Vlieger, Logarithmic scatterplot of A054483(n)/a(n), n = 2..779694, showing ratios for the entire Flammenkamp dataset of highly composite numbers.
Programs
-
Mathematica
s = Import["https://oeis.org/A002182/b002182.txt", "Data"][[All, -1]]; Array[Denominator[s[[# + 1]]/s[[#]]] &, 120] (* Michael De Vlieger, Oct 11 2023 *)
Extensions
More terms from Jud McCranie, Jun 11 2005
Comments