OFFSET
1,2
EXAMPLE
a(4)= prime(4)*prime(5)-prime(6) = 7*11-13=64.
MAPLE
seq(ithprime(n)*ithprime(n+1)-ithprime(n+2), n=1..50); # Emeric Deutsch, Oct 10 2005
MATHEMATICA
f[n_] := Prime[n]Prime[n + 1] - Prime[n + 2]; Table[ f[n], {n, 41}] (* Robert G. Wilson v, Oct 10 2005 *)
#[[1]]*#[[2]]-#[[3]]&/@Partition[Prime[Range[50]], 3, 1] (* Harvey P. Dale, Aug 06 2015 *)
PROG
(PARI) main(size)=my(n); vector(size, n, prime(n)*prime(n+1)-prime(n+2)) /* Anders Hellström, Jul 16 2015 */
(Magma) [NthPrime(n)*NthPrime(n+1)-NthPrime(n+2): n in [1..50]]; // Vincenzo Librandi, Jul 18 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Christopher M. Tomaszewski (cmt1288(AT)comcast.net), Oct 09 2005
EXTENSIONS
More terms from Robert G. Wilson v and Emeric Deutsch, Oct 10 2005
STATUS
approved