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