login
A090661
Numbers n such that prevprime(n!) - n*prevprime((n-1)!) < 0.
1
5, 8, 13, 15, 31, 34, 39, 95, 167, 325, 380, 470, 547
OFFSET
1,1
MATHEMATICA
PrevPrim[ n_ ] := Block[ {k = n - 1}, While[ !PrimeQ[ k ], k-- ]; k ]; Select[ Range[ 275 ], PrevPrim[ #! ] - #*PrevPrim[ (# - 1)! ] < 0 & ] (* Robert G. Wilson v *)
CROSSREFS
Cf. A090660.
Sequence in context: A263263 A314420 A030606 * A214976 A047615 A314421
KEYWORD
nonn
AUTHOR
Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Dec 15 2003
EXTENSIONS
More terms from Robert G. Wilson v, Dec 20 2003
STATUS
approved