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

%I #16 Oct 12 2023 01:38:08

%S 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,

%T 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,

%U 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

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

%C 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.

%H Michael De Vlieger, <a href="/A054483/b054483.txt">Table of n, a(n) for n = 2..10000</a>

%H Michael De Vlieger, <a href="https://oeis.org/A054482/a054482.png">Logarithmic scatterplot of a(n)/A054482(n)</a>, n = 2..4096.

%F a(n) = A002182(n)/A054481(n)

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

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

%Y Cf. A002182, A054482.

%K easy,nonn,frac

%O 2,1

%A _Henry Bottomley_, Mar 31 2000

%E More terms from _Jud McCranie_, Jun 11 2005