|
| |
|
|
A037155
|
|
a(n)=n!-p, where p is the largest prime < (n!-1).
|
|
4
| |
|
|
3, 5, 7, 11, 17, 31, 13, 11, 13, 13, 23, 17, 47, 53, 59, 41, 101, 31, 31, 73, 89, 73, 149, 37, 43, 101, 31, 79, 61, 163, 47, 193, 113, 127, 97, 79, 73, 83, 131, 79, 109, 109, 53, 89, 79, 103, 59, 97, 179, 67, 59, 127, 61, 461, 277, 109, 137, 139, 71, 71, 101, 359
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 3,1
|
|
|
COMMENTS
| Analogous to the lesser Fortunate numbers and like them, all entries so far are primes.
|
|
|
EXAMPLE
| a(4) = 4!-19 = 24-19 = 5.
|
|
|
MATHEMATICA
| PrevPrime[ n_Integer ] := (k=n-1; While[ !PrimeQ[ k ], k-- ]; Return[ k ]); f[ n_Integer ] := (p = n! - 1; q = NextPrime[ p ]; Return[ p - q + 1 ]); Table[ f[ n ], {n, 3, 75} ]
f[n_]:=Module[{nf=n!}, nf-NextPrime[nf-1, -1]]; f/@Range[3, 90] (* From Harvey P. Dale, Mar 20 2011 *)
|
|
|
CROSSREFS
| Cf. A055211.
Sequence in context: A068811 A088083 A116457 * A038944 A124081 A119573
Adjacent sequences: A037152 A037153 A037154 * A037156 A037157 A037158
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jud McCranie (JudMcCranie(AT)ugaalum.uga.edu)
|
|
|
EXTENSIONS
| More terms from James A. Sellers (sellersj(AT)math.psu.edu), Jul 06 2000
|
| |
|
|
