OFFSET
1,4
COMMENTS
Observation/conjecture: a(n)=0 iff A073271(n) in {3, 7, 23}.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
Table[Prime[n+1] - Floor[Prime[n] Prime[n+2] / Prime[n+1]], {n, 80}] (* Vincenzo Librandi, May 31 2015 *)
PROG
(Magma) [NthPrime(n+1)-Floor(NthPrime(n)*NthPrime(n+2) / NthPrime(n+1)): n in [1..80]]; // Vincenzo Librandi, May 31 2015
(PARI) a(n, p=prime(n))=my(q=nextprime(p+1), r=nextprime(q+1)); q - p*r\q \\ Charles R Greathouse IV, Jun 02 2015
CROSSREFS
KEYWORD
sign
AUTHOR
Reinhard Zumkeller, Jul 22 2002
STATUS
approved