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