login
a(n)>0 such that p(n)*p(n+1)+a(n) is a minimal prime.
7

%I #7 May 28 2013 16:46:07

%S 1,2,2,2,6,2,8,2,6,8,4,6,14,6,12,10,8,4,2,6,12,6,6,8,6,24,6,14,6,18,

%T 12,10,8,6,2,12,10,18,10,4,2,12,8,18,6,10,4,6,8,2,4,2,2,6,10,6,2,12,2,

%U 8,20,8,2,24,2,6,30,14,20,6,6,6,6,4,20,4,6,2,2,12,2,6,6,6,2,22,8,32,6,12

%N a(n)>0 such that p(n)*p(n+1)+a(n) is a minimal prime.

%e a(1) = 1 because p(1)*p(2) + 1 = 2*3 + 1 = 7 -> prime

%t NextPrime[#]-#&/@Times@@@Partition[Prime[Range[100]],2,1] (* _Harvey P. Dale_, May 28 2013 *)

%K nonn

%O 1,2

%A _Zak Seidov_, Oct 02 2002