A136762 -id:A136762 - cp's OEIS frontend

A136754 Leading digit of n! in base 3.

1, 1, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

Offset: 0

Carl R. White, Jan 21 2008

			a(10) = 2 as 10! = 20211100210000_3 which has leading digit 2. - _David A. Corneth_, Jan 15 2021

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

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

Table[First[IntegerDigits[n!,3]],{n,0,87}] (* Stefano Spezia, Aug 25 2022 *)

a(n, {b = 3}) = my(f = n!); f \ b^logint(f, b) \\ David A. Corneth, Jan 10 2021

Missing a(0)=1 inserted by David A. Corneth, Jan 10 2021

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

Original entry on oeis.org

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

Carl R. White, Jan 21 2008

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

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

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

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 *)

a(n) = digits(n!, 7)[1]; \\ Michel Marcus, Jan 27 2015

A136759 a(n) = leading digit of n! in base 8.

Original entry on oeis.org

1, 1, 2, 6, 3, 1, 1, 1, 1, 1, 1, 2, 3, 5, 1, 2, 4, 1, 2, 6, 2, 5, 1, 5, 2, 6, 2, 1, 3, 1, 6, 3, 1, 6, 3, 1, 1, 4, 2, 1, 1, 5, 3, 2, 1, 1, 7, 5, 3, 2, 2, 1, 1, 1, 1, 7, 6, 5, 5, 4, 4, 4, 4, 3, 3, 4, 4, 4, 4, 5, 5, 6, 6, 7, 1, 1, 1, 1, 2, 2, 3, 4, 5, 7, 1, 1, 2, 2, 4, 5, 7, 1, 2, 2, 4, 6, 1, 1, 2, 4

Offset: 0

Carl R. White, Jan 21 2008

Robert Israel, Table of n, a(n) for n = 0..10000

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

f:= proc(n) local v; v:= n!; floor(v/8^floor(ilog2(v)/3)) end proc:
map(f, [$1..100]); # Robert Israel, Jun 07 2018

Array[IntegerDigits[#!, 8][[1]]&, 100, 0] (* Vincenzo Librandi, Jun 07 2018 *)

a(n) = digits(n!, 8)[1]; \\ Michel Marcus, Jan 27 2015

A136760 a(n) = leading digit of n! in base 9.

Original entry on oeis.org

1, 1, 2, 6, 2, 1, 8, 6, 6, 6, 6, 8, 1, 1, 2, 4, 8, 1, 3, 7, 1, 4, 1, 2, 7, 2, 6, 2, 7, 2, 8, 3, 1, 4, 1, 7, 3, 1, 6, 3, 1, 7, 3, 1, 1, 5, 3, 1, 1, 5, 3, 2, 1, 8, 5, 3, 2, 1, 1, 8, 6, 4, 3, 2, 2, 1, 1, 1, 1, 7, 6, 6, 5, 4, 4, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 5, 5, 6, 7, 8, 1, 1, 1, 1, 2, 2

Offset: 0

Carl R. White, Jan 21 2008

			a(10) = 6 as 10! = 6740700_9 which has leading digit 6. - _David A. Corneth_, Jan 15 2021

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

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

f[n_]:=First[IntegerDigits[n!,9]]; lst={};Do[AppendTo[lst,f[n]],{n,0,2*5!}];lst (* Vladimir Joseph Stephan Orlovsky, Jun 14 2009 *)
IntegerDigits[#,9][[1]]&/@(Range[0,100]!) (* Harvey P. Dale, Jun 21 2021 *)

a(n) = digits(n!, 9)[1]; \\ Michel Marcus, Jan 27 2015

A136761 a(n) = leading digit of n! in base 11.

Original entry on oeis.org

1, 1, 2, 6, 2, 10, 5, 3, 2, 2, 2, 2, 2, 2, 3, 4, 6, 10, 1, 2, 4, 9, 1, 3, 7, 1, 3, 9, 2, 5, 1, 3, 1, 3, 9, 2, 9, 2, 9, 3, 1, 3, 1, 5, 1, 7, 2, 1, 4, 1, 9, 3, 1, 7, 3, 1, 8, 3, 1, 9, 4, 2, 1, 7, 3, 2, 1, 6, 3, 2, 1, 8, 4, 2, 1, 1, 7, 4, 3, 2, 1, 10, 6, 4, 3, 2, 1, 1, 9, 6, 5, 3, 2, 2, 1, 1, 1, 9, 7, 6

Offset: 0

Carl R. White, Jan 21 2008

			a(10) = 2 as 10! = 20594010_11 which has leading digit 2. - _David A. Corneth_, Jan 15 2021

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

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

f[n_]:=First[IntegerDigits[n!,11]]; lst={};Do[AppendTo[lst,f[n]],{n,0,2*5!}];lst (* Vladimir Joseph Stephan Orlovsky, Jun 14 2009 *)
First[IntegerDigits[#,11]]&/@(Range[0,100]!) (* Harvey P. Dale, Feb 20 2013 *)

a(n) = digits(n!, 11)[1]; \\ Michel Marcus, Jan 27 2015

A136763 a(n) = leading digit of n! in base 13.

Original entry on oeis.org

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

Offset: 0

Carl R. White, Jan 21 2008

			a(10) = 9 as 10! = 9100926_13 which has leading digit 9. - _David A. Corneth_, Jan 15 2021

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

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

Table[First[IntegerDigits[n!,13]],{n,0,100}] (* Harvey P. Dale, Dec 20 2015 *)

a(n) = digits(n!, 13)[1]; \\ Michel Marcus, Jan 27 2015

A136766 a(n) = leading digit of n! in base 16.

Original entry on oeis.org

1, 1, 2, 6, 1, 7, 2, 1, 9, 5, 3, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 3, 5, 8, 12, 1, 2, 3, 6, 13, 1, 3, 6, 13, 1, 4, 9, 1, 3, 8, 1, 3, 10, 1, 4, 14, 2, 7, 1, 4, 14, 2, 9, 2, 7, 1, 5, 1, 4, 1, 4, 1, 3, 15, 4, 1, 4, 1, 5, 1, 6, 1, 7, 2, 10, 3, 15, 4, 1, 7, 2, 11, 3, 1, 6, 2, 11, 4, 1, 7, 2, 1, 5, 2, 12, 4, 1, 11

Offset: 0

Carl R. White, Jan 21 2008

			For n=5, 5! = 5*4*3*2*1 = 120 in base 10, which is 78 in hexadecimal (7*16 + 8*1), so a(5) = 7. - _Michael B. Porter_, Sep 20 2016

David A. Corneth, Table of n, a(n) for n = 0..9999 (first 1001 terms from Robert G. Wilson v)

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

Array[ IntegerDigits[#!, 16][[1]] &, 1001, 0] (* Robert G. Wilson v, Sep 20 2016 *)
Table[Floor[#/16^Floor@ Log[16, #]] &[n!], {n, 0, 98}] (* Michael De Vlieger, Sep 20 2016 *)

a(n) = digits(n!, 16)[1]; \\ Michel Marcus, Jan 27 2015

A136755 a(n) = leading digit of n! in base 4.

Original entry on oeis.org

1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 3, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 3, 1, 2, 3, 1, 2, 3, 1, 3, 1, 3, 1, 3, 1, 1, 2, 1, 3, 2, 1, 3, 2, 1, 1, 3, 2, 1, 1, 1, 3, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 3, 3, 1, 1, 1, 2, 2, 3, 1, 1, 2, 2, 1, 1, 1, 2, 1, 1, 2, 3, 1, 1, 2, 1

Offset: 0

Carl R. White, Jan 21 2008

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

f[n_]:=First[IntegerDigits[n!,4]]; lst={};Do[AppendTo[lst,f[n]],{n,0,2*5!}];lst (* Vladimir Joseph Stephan Orlovsky, Jun 14 2009 *)

a(n) = digits(n!, 4)[1]; \\ Michel Marcus, Jan 27 2015

A136756 Leading digit of n! in base 5.

Original entry on oeis.org

1, 1, 2, 1, 4, 4, 1, 1, 2, 4, 1, 4, 1, 1, 2, 1, 1, 3, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 3, 1, 1, 2, 3, 4, 1, 2, 3, 1, 2, 4, 1, 2, 1, 1, 3, 1, 3, 1, 2, 1, 2, 1, 2, 1, 2, 1, 3, 1, 4, 2, 1, 2, 1, 4, 2, 1, 3, 2, 1, 3, 2, 1, 4, 2, 1, 1, 3, 2, 1, 1, 3, 2, 1, 1, 4, 2, 2, 1, 1, 4, 3, 2, 2, 1, 1

Offset: 0

Carl R. White, Jan 21 2008

			a(10) = 1 as 10! = 1412110200_5 which has leading digit 1. - _David A. Corneth_, Jan 15 2021

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

Cf. A000142, A136692, A000012, A136754, A136755, A136757, A136758, A136759, A136760, A008905, A136761, A136762, A136763, A136764, A136765, A136766.

A136757 Leading digit of n! in base 6.

Original entry on oeis.org

1, 1, 2, 1, 4, 3, 3, 3, 5, 1, 2, 3, 1, 2, 1, 2, 1, 3, 1, 5, 3, 1, 1, 4, 2, 1, 1, 1, 4, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 4, 5, 1, 1, 1, 2, 3, 4, 1, 1, 2, 3, 5, 1, 2, 3, 5, 1, 2, 4, 1, 2, 4, 1, 2, 4, 1, 2, 5, 1, 3, 1, 2, 5, 2, 4, 1, 3, 1, 3, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 3, 1, 3, 1, 4, 2

Offset: 0

Carl R. White, Jan 21 2008

			a(10) = 2 as 10! = 205440000_6 which has leading digit 2. - _David A. Corneth_, Jan 15 2021

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

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

Table[First[IntegerDigits[n!,6]],{n,0,100}] (* Harvey P. Dale, Dec 13 2011 *)

cp's OEIS Frontend

A136754 Leading digit of n! in base 3.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

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

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A136759 a(n) = leading digit of n! in base 8.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

PARI

A136760 a(n) = leading digit of n! in base 9.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A136761 a(n) = leading digit of n! in base 11.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A136763 a(n) = leading digit of n! in base 13.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A136766 a(n) = leading digit of n! in base 16.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A136755 a(n) = leading digit of n! in base 4.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

PARI