|
| |
|
|
A136758
|
|
Leading digit of n! in base 7.
|
|
13
| |
|
|
1, 1, 2, 6, 3, 2, 2, 2, 2, 3, 4, 6, 1, 3, 6, 1, 4, 1, 3, 1, 4, 1, 5, 2, 1, 4, 2, 1, 5, 3, 2, 1, 5, 3, 2, 1, 1, 1, 5, 4, 3, 3, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 3, 3, 4, 5, 6, 1, 1, 1, 2, 3, 4, 5, 1, 1, 2, 3, 4, 1, 1, 2, 3, 5, 1, 2, 3, 5, 1, 2, 3, 6, 1, 3, 5, 1, 2, 4, 1, 2, 4, 1, 2, 5, 1, 2
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
MATHEMATICA
| f[n_]:=First[IntegerDigits[n!, 7]]; lst={}; Do[AppendTo[lst, f[n]], {n, 0, 2*5!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Jun 14 2009]
|
|
|
CROSSREFS
| Cf. A000142, A136694, A136754, A136755, A136756, A136757, A136759, A136760, A008905, A136761, A136762, A136763, A136764, A136765, A136766.
Sequence in context: A108443 A201761 A011042 * A056113 A128203 A144531
Adjacent sequences: A136755 A136756 A136757 * A136759 A136760 A136761
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| Carl R. White (oeisfan(AT)phodd.net), Jan 21 2008
|
| |
|
|
