OFFSET
1,1
FORMULA
a(n) = denominator of ((p_n-p_(n+2))/(p_n-p_(n+3))) * ((p_(n+1)-p_(n+3))/(p_(n+1)-p_(n+2))) where p_n = prime(n) is the n-th prime.
EXAMPLE
6/5, 3/2, 9/8, 9/5, 9/8, 9/5, 5/4, 10/9, 16/7, 10/9 are the first ten terms in the sequence of cross-ratios.
MATHEMATICA
dcr[{a_, b_, c_, d_}]:=Denominator[(a-c)/(a-d) (b-d)/(b-c)]; dcr/@Partition[Prime[ Range[ 100]], 4, 1] (* Harvey P. Dale, Nov 26 2022 *)
PROG
(PARI) a(n) = my(p=prime(n), p1=nextprime(p+1), p2=nextprime(p1+1), p3=nextprime(p2+1)); denominator((((p-p2)/(p-p3))*((p1-p3)/(p1-p2)))); \\ Michel Marcus, Jul 29 2022
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Samir Fridhi, Jul 21 2022
STATUS
approved