cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A084401 n-th partial product + 1 is a prime, where a(n)>1 for n>1.

This page as a plain text file.
%I A084401 #9 Dec 05 2013 19:56:16
%S A084401 1,2,2,3,3,2,6,3,2,4,7,7,3,8,6,2,3,6,9,6,14,19,11,4,4,19,4,13,3,10,13,
%T A084401 15,4,11,9,2,5,26,19,52,21,20,63,4,19,17,6,29,19,3,5,51,11,14,15,7,12,
%U A084401 44,34,7,21,32,3,22,10,19,19,7,20,4,22,4,17,35,47,40,14,5,14,36,39,16
%N A084401 n-th partial product + 1 is a prime, where a(n)>1 for n>1.
%C A084401 Except for the first term, same as A036012. - _David Wasserman_, Dec 22 2004
%e A084401 1+1 =2, 1*2+1=3, 1*2*2 +1=5 etc. are primes.
%t A084401 a[1] = p = 1; a[n_] := a[n] = Catch[For[k = 2, True, k++, If[PrimeQ[p*k + 1], p = p*k; Throw[k]]]]; Table[a[n], {n, 1, 82}] (* _Jean-François Alcover_, May 14 2012 *)
%Y A084401 Cf. A084402.
%K A084401 nonn
%O A084401 1,2
%A A084401 _Amarnath Murthy_, May 31 2003
%E A084401 More terms from _David Wasserman_, Dec 22 2004