A054483 Numerator of lowest terms fraction from division of a highly composite number (1) by its predecessor.

2, 2, 3, 2, 2, 3, 4, 5, 2, 3, 4, 3, 2, 7, 3, 4, 3, 2, 3, 4, 3, 4, 5, 11, 18, 10, 11, 3, 4, 3, 4, 5, 6, 3, 10, 6, 13, 3, 4, 3, 4, 5, 6, 3, 10, 6, 5, 4, 6, 5, 3, 17, 20, 17, 6, 3, 10, 6, 5, 4, 6, 5, 3, 19, 20, 3, 19, 3, 20, 19, 6, 5, 4, 6, 5, 3, 4, 3, 4, 3, 7, 46, 105, 23, 28, 46, 105, 23, 3, 28, 23, 3

Offset: 2

Author

Henry Bottomley, Mar 31 2000

Keywords

• easy
• nonn
• frac

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 A054482(n)+1, though not for example for n=26.

Examples

			a(7)=3 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 a(n)/A054482(n), n = 2..4096.

Crossrefs

Cf. A002182, A054482.

Programs

Mathematica

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

Formula

a(n) = A002182(n)/A054481(n).

Extensions

More terms from Jud McCranie, Jun 11 2005