|
|
A045569
|
|
Numbers whose factorial has '92' as its final two digits before the trailing zeros.
|
|
1
|
|
|
84, 91, 110, 115, 181, 189, 217, 224, 228, 302, 308, 319, 328, 353, 378, 404, 407, 435, 443, 518, 527, 539, 554, 589, 602, 605, 630, 639, 663, 668, 672, 675, 676, 713, 715, 736, 757, 775, 776, 792, 802, 808, 819
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
fndQ[n_]:=Module[{f=n!}, Take[Drop[IntegerDigits[f], -IntegerExponent[ f, 10]], -2] == {9, 2}]; Select[Range[5, 900], fndQ] (* Harvey P. Dale, Sep 26 2016 *)
|
|
PROG
|
(PARI) last(n, k)=if(n*8\9-1<k, n=n!; return(n/10^valuation(n, 10)%10^k)); my(m=Mod(1, 5^k)); for(i=2, n, m*=i/10^valuation(i, 5)); lift(chinese(m, Mod(0, 2^k))) \\ Gives the last k decimal digits of n!.
(PARI) v=List(); m=Mod(1, 25); for(n=2, 1e6, m*=n/10^valuation(n, 5); if(m==92, listput(v, n); if(#v==100, return(Vec(v))))) \\ Charles R Greathouse IV, Oct 22 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|