A090661 Numbers n such that prevprime(n!) - n*prevprime((n-1)!) < 0.

5, 8, 13, 15, 31, 34, 39, 95, 167, 325, 380, 470, 547

Offset: 1

Author

Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Dec 15 2003

Keywords

• nonn

Crossrefs

Cf. A090660.

Programs

Mathematica

PrevPrim[ n_ ] := Block[ {k = n - 1}, While[ !PrimeQ[ k ], k-- ]; k ]; Select[ Range[ 275 ], PrevPrim[ #! ] - #*PrevPrim[ (# - 1)! ] < 0 & ] (* Robert G. Wilson v *)

Extensions

More terms from Robert G. Wilson v, Dec 20 2003