%I #17 Jun 20 2023 07:30:07

%S 2,3,5,7,10,12,14,15,19,21,26,29,30,39,41,56,62,77,96,105,112,113,115,

%T 121,136,145,159,168,188,236,240,258,281,305,324,362,376,422,521,588,

%U 639,643,652,695,698,737,770,776,784,806,807,809,818,959,1023,1060,1071

%N Incorrect duplicate of A046966.

%C Previous name was: a(n) is the smallest integer greater than a(n-1) such that a(1)*a(2)*...*a(n) + 1 is prime.

%t k = 5; a = {}; Do[If[PrimeQ[k n + 1], k = k n; AppendTo[a, n]], {n, 1, 3000}]; a

%Y Cf. A046966, A046972, A144717, A144718, A144722, A144723, A144724, A144725, A144726, A144727, A144728, A144729, A144730, A144731.

%K dead

%O 1,1

%A _Artur Jasinski_, Sep 19 2008