|
%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
|
