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.
%I A035093 #23 Sep 26 2020 03:13:50 %S A035093 1,1,1,3,2,3,3,4,3,3,1,2,3,13,7,4,5,2,7,17,15,18,3,6,3,16,1,4,7,20,8, %T A035093 3,9,5,2,7,1,3,10,3,1,29,7,9,45,8,3,6,35,66,2,20,2,4,25,52,14,34,24,6, %U A035093 10,22,38,16,20,91,69,12,19,20,21,42,1,5,33,77,1,2,12,29,193,74,40,55,19 %N A035093 Smallest k such that k*n! + 1 is prime. %C A035093 This is one possible generalization of "the least prime problem" for n*k+1 arithmetic progression when n is replaced by n!, a special difference. %H A035093 <a href="/index/Pri#primes_AP">Index entries for sequences related to primes in arithmetic progressions</a> %e A035093 a(7)=3 because in progression of 5040*k+1 the terms 5041 and 10081 are not prime and so 15121 is the first prime. %t A035093 Table[k = 1; While[! PrimeQ[1 + k*n!], k++]; k, {n, 85}] (* _T. D. Noe_, Nov 04 2013 *) %o A035093 (PARI) a(n) = my(k=1); while(!isprime(k*n!+1), k++); k; \\ _Michel Marcus_, Sep 26 2020 %Y A035093 Analogous case is A034693. Special case for k=1 is A002981. %K A035093 nonn %O A035093 1,4 %A A035093 _Labos Elemer_ %E A035093 a(80) corrected by _Alex Ratushnyak_, Nov 03 2013 %E A035093 Simpler title by _Sean A. Irvine_, Sep 25 2020