OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = numerator((prime(n+2)-prime(n+1))/(prime(n+1)-prime(n))).
A000040(n) = 3 + Sum_{j=1..n-1} Product_{k=1..j} a(k)/A274225(k), for n>1. - Andres Cicuttin, Apr 26 2017
MATHEMATICA
Table[(Prime[j+2]-Prime[j+1])/(Prime[j+1]-Prime[j]), {j, 1, 120}]//Numerator
Numerator[#[[2]]/#[[1]]]&/@Partition[Differences[Prime[Range[100]]], 2, 1] (* Harvey P. Dale, Dec 07 2022 *)
PROG
(Magma) [Numerator((NthPrime(n+2)-NthPrime(n+1))/(NthPrime(n+1)-NthPrime(n))): n in [1..100]]; // Vincenzo Librandi, Apr 27 2017
(PARI) a(n) = numerator((prime(n+2)-prime(n+1))/(prime(n+1)-prime(n))); \\ Michel Marcus, Apr 29 2017
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Andres Cicuttin, Jun 21 2016
STATUS
approved