OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MAPLE
A181428 := proc(n)
ithprime(n+1)-ithprime(n)+ithprime(n+2) ;
end proc:
seq(A181428(n), n=1..80) ; # R. J. Mathar, Sep 10 2016
MATHEMATICA
#[[3]]+#[[2]]-#[[1]]&/@Partition[Prime[Range[100]], 3, 1] (* Harvey P. Dale, Feb 01 2011 *)
ListConvolve[{1, 1, -1}, Prime[Range[100]]]
PROG
(PARI) first(n)=my(v=primes(n+2)); for(k=1, n, v[k]=v[k+2]+v[k+1]-v[k]); v[1..n] \\ Charles R Greathouse IV, Feb 23 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Amir H. Farrahi, Jan 29 2011
STATUS
approved