The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A045548 Numbers whose factorial has '4' as its final nonzero digit. 6
 4, 7, 20, 21, 23, 25, 26, 28, 37, 42, 49, 52, 55, 56, 58, 64, 69, 75, 76, 78, 87, 92, 99, 100, 101, 103, 112, 117, 124, 134, 135, 136, 138, 140, 141, 143, 147, 152, 155, 156, 158, 164, 169, 179, 182, 195, 196, 198, 202, 205, 206, 208, 214, 219 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS From Robert Israel, Dec 16 2016: (Start) If n is in the sequence, then: if n == 0 (mod 5), n+1 is in the sequence; if n == 1 (mod 5), n+1 is in A045550; if n == 2 (mod 5), n+1 is in A045547; if n == 3 (mod 5), n+1 is in A045549. (End) LINKS Robert Israel, Table of n, a(n) for n = 1..10000 Index entries for sequences related to final digits of numbers MAPLE count:= 0: r:= 1: for n from 2 while count < 100 do r:= r*n; if r mod 10 = 0 then r:= r/10^padic:-ordp(r, 5) fi; if r mod 10 = 4 then count:= count+1; A[count]:= n fi; od: seq(A[i], i=1..100); # Robert Israel, Dec 16 2016 MATHEMATICA f[n_] := Mod[6 Times @@ (Rest[ FoldList[{1 + #1[[1]], #2! 2^(#1[[1]] #2)} &, {0, 0}, Reverse[ IntegerDigits[n, 5]]]]), 10][[2]] (* after Jacob A. Siehler & Greg Dresden in A008904 *); f[0] = f[1] = 1; Select[ Range[150], f[#] == 4 &] (* Robert G. Wilson v, Dec 28 2016 *) PROG (Python) from itertools import count, islice from functools import reduce from sympy.ntheory.factor_ import digits def A045548_gen(startvalue=1): # generator of terms >= startvalue return filter(lambda n:4==reduce(lambda x, y:x*y%10, (((6, 2, 4, 8, 6, 2, 4, 8, 2, 4, 8, 6, 6, 2, 4, 8, 4, 8, 6, 2)[(a<<2)|(i*a&3)] if i*a else (1, 1, 2, 6, 4)[a]) for i, a in enumerate(digits(n, 5)[-1:0:-1])), 6), count(max(startvalue, 1))) A045548_list = list(islice(A045548_gen(), 30)) # Chai Wah Wu, Dec 07 2023 CROSSREFS Cf. A000142, A008904, A045547, A045549, A045550. Sequence in context: A253208 A275389 A127415 * A359733 A090879 A084404 Adjacent sequences: A045545 A045546 A045547 * A045549 A045550 A045551 KEYWORD nonn,base AUTHOR Jeff Burch STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 13 00:51 EDT 2024. Contains 373362 sequences. (Running on oeis4.)