|
| |
|
|
A136690
|
|
Final nonzero digit of n! in base 3.
|
|
13
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
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] [From Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 17 2010]
|
|
|
CROSSREFS
| Cf. A000142, A136691, A136692, A136693, A136694, A136695, A136696, A008904, A136697, A136698, A136699, A136700, A136701, A136702.
Sequence in context: A029413 A105154 A076447 * A144703 A097026 A189225
Adjacent sequences: A136687 A136688 A136689 * A136691 A136692 A136693
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| Carl R. White (oeisfan(AT)phodd.net), Jan 16 2008
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 17 2010
|
| |
|
|
