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,3

Comments

Successive fractions are 2/1,2/1,3/2,2/1,2/1,3/2,4/3,5/4,2/1,3/2,4/3,3/2,2/1 a(n) is frequently A054483(n)-1, though not for example for n=26.

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.

Formula

a(n) = A002182(n-1)/A054481(n)

Example

a(7)=2 since A002182(7)=36, A002182(6)=24 and 36/24=3/2 in lowest terms.

Mathematica

s = Import["https://oeis.org/A002182/b002182.txt", "Data"][[All, -1]]; Array[Denominator[s[[# + 1]]/s[[#]]] &, 120] ] (* Michael De Vlieger, Oct 11 2023 *)

Crossrefs

Cf. A002182, A054483.

Sequence in context: A287731 A289816 A363148 * A208234 A092543 A277083

Adjacent sequences: A054479 A054480 A054481 * A054483 A054484 A054485

Keyword

easy,nonn,frac

Author

Henry Bottomley, Mar 31 2000

Extensions

More terms from Jud McCranie, Jun 11 2005

Status

approved