OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = Denominator(Sum_{i=1..n} 1/(prime(i+1)-prime(i)).
a(n) = Denominator(Sum_{i=1..n} 1/A001223(i)).
MAPLE
G:= [seq(1/(ithprime(n+1)-ithprime(n)), n=1..100)]:
L:= ListTools:-PartialSums(G):
map(denom, L); # Robert Israel, Jan 22 2020
MATHEMATICA
nmax=64; Table[Sum[1/(Prime[j + 1] - Prime[j]), {j, 1, n}], {n, 1, nmax}]//Denominator;
PROG
(PARI) a(n) = denominator(sum(i=1, n, 1/(prime(i+1)-prime(i)))) \\ Felix Fröhlich, Jul 07 2016
CROSSREFS
KEYWORD
AUTHOR
Andres Cicuttin, Jul 07 2016
STATUS
approved