1,5
a = {}; Do[k = 1; While[ ! PrimeQ[n! + NextPrime[n!, k]], k++ ]; Print[k]; AppendTo[a, k], {n, 1, 200}]; a (*Artur Jasinski*)
Cf. A002981, A151892, A151894, A151903, A139213, A139214.
Sequence in context: A024735 A024957 A153914 this_sequence A000361 A135723 A125311
Adjacent sequences: A151890 A151891 A151892 this_sequence A151894 A151895 A151896
nonn
Artur Jasinski (grafix(AT)csl.pl), Apr 12 2008
Search completed in 0.002 seconds