A136758 a(n) = leading digit of n! in base 7.

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

Offset

0,3

Links

David A. Corneth, Table of n, a(n) for n = 0..9999

Example

a(10) = 4 as 10! = 42562410_7 which has leading digit 4. - _David A. Corneth_, Jan 15 2021

Mathematica

f[n_]:=First[IntegerDigits[n!, 7]]; lst={}; Do[AppendTo[lst, f[n]], {n, 0, 2*5!}]; lst (* _Vladimir Joseph Stephan Orlovsky_, Jun 14 2009 *)
First[IntegerDigits[#, 7]]&/@(Range[0, 100]!) (* _Harvey P. Dale_, Nov 23 2013 *)

Prog

(PARI) a(n) = digits(n!, 7)[1]; \\ _Michel Marcus_, Jan 27 2015

Crossrefs

Cf. A000142, A136694, A136754, A136755, A136756, A136757, A136759, A136760, A008905, A136761, A136762, A136763, A136764, A136765, A136766.

Sequence in context: A201761 A011042 A256127 * A056113 A380714 A251755

Adjacent sequences: A136755 A136756 A136757 * A136759 A136760 A136761

Keyword

base,easy,nonn

Author

_Carl R. White_, Jan 21 2008

Status

approved