Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #12 Mar 11 2014 19:56:09
%S 7,17,37,673,1153,4093,7393,8641,22501,32401,57601,64513,70753,72901,
%T 126733,136897,176401,190093,205201,256033,313597,324901,329473,
%U 348097,430333,497017,541693,585217,715681,891133,974161,988033,1238761,1267873,1416097,1432801,1664101,1674433,1742401,1932037,2005021,2146201,2238013,2265001,2480617,2637373
%N Primes of the form prime(x)*prime(x+1) + (prime(x+1)-prime(x)).
%e 2*3+(3-2) = 2*3+1 = 7, 23*29+(29-23) = 23*29+6 = 673.
%t a = {}; Do[p1 = Prime[n]; p2 = Prime[n + 1]; p = p1*p2 + (p2 - p1); p3 = p2 - p1; If[PrimeQ[p], AppendTo[a, p]], {n, 10^2}]; a
%t (* Alternate: *) Select[(#[[1]] #[[2]]+#[[2]]-#[[1]])&/@Partition[ Prime[Range[300]],2,1],PrimeQ] (* _Harvey P. Dale_, Dec 03 2010 *)
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jun 21 2008
%E Additional terms from _Harvey P. Dale_, Dec 03 2010