A092068 Positions of 0's in A092970.
18, 51, 53, 84, 95, 100, 104, 106, 143, 178, 180, 181, 188
Offset: 1
Keywords
Crossrefs
Cf. A092970.
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.
f[n_] := Block[{k = 1}, While[ !PrimeQ[n!/k + 1], k++ ]; If[k < n, n!/k + 1, 0]]; Table[ f[n], {n, 22}] (* Robert G. Wilson v, Mar 27 2004 *)
a(n)=for (i=1,n,if(isprime(n!/i+1),return((n!/i+1))))
Table[s = Select[Range[n - 1], PrimeQ[n!/# + 1] &, 1]; If[s == {}, 0, s[[1]]], {n, 2, 100}] (* T. D. Noe, Feb 13 2012 *)
Comments