The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A136690 Final nonzero digit of n! in base 3. 14
 1, 1, 2, 2, 2, 1, 2, 2, 1, 1, 1, 2, 2, 2, 1, 2, 2, 1, 2, 2, 1, 1, 1, 2, 1, 1, 2, 2, 2, 1, 1, 1, 2, 1, 1, 2, 2, 2, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 2, 2, 1, 2, 2, 1, 2, 2, 1, 1, 1, 2, 1, 1, 2, 2, 2, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 2, 2, 1, 2, 2, 1, 1, 1, 2, 2, 2, 1, 2, 2, 1, 1, 1, 2, 2, 2, 1, 2, 2, 1, 2, 2, 1, 1, 1, 2 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,3 LINKS EXAMPLE 6! = 720 decimal = 222200 ternary, so a(6) = 2. MATHEMATICA f[n_] := Mod[6 Times @@ (Rest[ FoldList[{1 + #1[[1]], #2! 2^(#1[[1]] #2)} &, {0, 0}, Reverse[ IntegerDigits[n, 3]]]]), 10][[2]]; # /. {0 -> 1} & /@ Mod[Table[f@n, {n, 0, 104}], 3] (* Robert G. Wilson v, Apr 17 2010 *) fnzd[n_]:=Module[{sidn3=Split[IntegerDigits[n!, 3]]}, If[MemberQ[ Last[ sidn3], 0], sidn3[[-2, 1]], sidn3[[-1, 1]]]]; Array[fnzd, 110, 0] (* Harvey P. Dale, May 03 2018 *) CROSSREFS Cf. A000142, A136691, A136692, A136693, A136694, A136695, A136696, A008904, A136697, A136698, A136699, A136700, A136701, A136702. Sequence in context: A238421 A105154 A076447 * A144703 A276825 A270644 Adjacent sequences:  A136687 A136688 A136689 * A136691 A136692 A136693 KEYWORD base,easy,nonn AUTHOR Carl R. White, Jan 16 2008 EXTENSIONS More terms from Robert G. Wilson v, Apr 17 2010 STATUS approved

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

Last modified February 21 15:54 EST 2020. Contains 332098 sequences. (Running on oeis4.)