OFFSET
1,2
COMMENTS
Original name was: Generated by recursion: a(n)=(Mod[Prime[n+1],Prime[n]]*n[n-1]; a[0]=1; Product of the first n consecutive prime-differences.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1244
FORMULA
Sum_{n>=1} 1/a(n) = A099002. - Amiram Eldar, Nov 19 2020
MATHEMATICA
a[1] = 1; a[n_] := a[n] = a[n - 1] * (Prime[n + 1] - Prime[n]); Array[a, 30] (* Amiram Eldar, Nov 19 2020 *)
PROG
(PARI) diff(v)=vector(#v-1, i, v[i+1]-v[i])
pprod(v)=my(t=1); vector(#v, i, t*=v[i])
pprod(diff(primes(50))) \\ Charles R Greathouse IV, Mar 27 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 01 2003
EXTENSIONS
New name from Charles R Greathouse IV, Mar 27 2014
More terms from Amiram Eldar, Nov 19 2020
STATUS
approved