%I #17 Jul 25 2017 06:58:43
%S 1,2,1,6,1,6,1,8,1,74,6,6,1,2,11,102,20,88,1,52,10,18,2,56,1,26,37,
%T 216,1,78,1,28,21,160,3,276,30,1542,42,598,20,20,333,186,8,82,11,90,1,
%U 246,1,240,83,58,9,76,1,16,21,700,60,10,87,250,62,406,2,502,140,186,1293,578
%N Let f(n,x) = 1 + 2x + 3x^2 + 5x^3 + 7x^4 + ... + prime(n)*x^n; a(n) = smallest value of x such that f(n,x) is a prime, or 0 if no such prime exists.
%H Vincenzo Librandi, <a href="/A088123/b088123.txt">Table of n, a(n) for n = 1..200</a>
%e a(4) = 6 as, A088122(4) = 10273 = f(4,6).
%t Table[Clear[x,n,eq];eq=Total[Table[Prime[n]x^n,{n,t}]]+1;x=1; While[ !PrimeQ[ eq],x++];x,{t,80}] (* _Harvey P. Dale_, Apr 27 2013 *)
%Y Cf. A088122.
%K nonn
%O 1,2
%A _Amarnath Murthy_, Sep 25 2003
%E More terms from _Tom Mueller_, May 04 2004
%E More terms from _David Wasserman_, Jul 25 2005