|
|
A272863
|
|
Numerator of the ratio of consecutive prime gaps.
|
|
8
|
|
|
2, 1, 2, 1, 2, 1, 2, 3, 1, 3, 2, 1, 2, 3, 1, 1, 3, 2, 1, 3, 2, 3, 4, 1, 1, 2, 1, 2, 7, 2, 3, 1, 5, 1, 3, 1, 2, 3, 1, 1, 5, 1, 2, 1, 6, 1, 1, 1, 2, 3, 1, 5, 3, 1, 1, 1, 3, 2, 1, 5, 7, 2, 1, 2, 7, 3, 5, 1, 2, 3, 4, 3, 1, 2, 3, 4, 1, 2, 5, 1, 5, 1, 3, 2, 3, 4, 1, 1, 2, 3, 2, 1, 2, 1, 3, 2
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
a(n) = numerator((prime(n+2)-prime(n+1))/(prime(n+1)-prime(n))).
|
|
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
|
Cf. A184247 (primes of the form prime(k+1) when a(k)=1).
|
|
KEYWORD
|
nonn,frac
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|