%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