|
%I #6 Mar 20 2015 03:16:44
%S 5,8,13,15,31,34,39,95,167,325,380,470,547
%N Numbers n such that prevprime(n!) - n*prevprime((n-1)!) < 0.
%t PrevPrim[ n_ ] := Block[ {k = n - 1}, While[ !PrimeQ[ k ], k-- ]; k ]; Select[ Range[ 275 ], PrevPrim[ #! ] - #*PrevPrim[ (# - 1)! ] < 0 & ] (* _Robert G. Wilson v_ *)
%Y Cf. A090660.
%K nonn
%O 1,1
%A Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Dec 15 2003
%E More terms from _Robert G. Wilson v_, Dec 20 2003
|
