cp's OEIS Frontend

A181428 a(n) = prime(n+2) + prime(n+1) - prime(n).

%I A181428 #22 May 19 2019 17:01:23
%S A181428 6,9,13,17,19,23,25,33,37,39,47,47,49,57,65,67,69,77,77,81,89,93,103,
%T A181428 109,107,109,113,115,131,145,141,145,151,161,159,169,173,177,185,187,
%U A181428 193,203,199,203,213,235,239,233,235,243,247,253,267,269,275,277,279,287,287,295,317,325,317,319,335,351,353
%N A181428 a(n) = prime(n+2) + prime(n+1) - prime(n).
%H A181428 Charles R Greathouse IV, <a href="/A181428/b181428.txt">Table of n, a(n) for n = 1..10000</a>
%p A181428 A181428 := proc(n)
%p A181428     ithprime(n+1)-ithprime(n)+ithprime(n+2) ;
%p A181428 end proc:
%p A181428 seq(A181428(n),n=1..80) ; # _R. J. Mathar_, Sep 10 2016
%t A181428 #[[3]]+#[[2]]-#[[1]]&/@Partition[Prime[Range[100]],3,1]  (* _Harvey P. Dale_, Feb 01 2011 *)
%t A181428 ListConvolve[{1, 1, -1}, Prime[Range[100]]]
%o A181428 (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
%K A181428 nonn
%O A181428 1,1
%A A181428 _Amir H. Farrahi_, Jan 29 2011