cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 21-23 of 23 results.

A131650 Number of symbols in Babylonian numeral representation of n.

Original entry on oeis.org

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

Views

Author

Alain Van Kerckhoven (alain(AT)avk.org), Sep 10 2007

Keywords

Comments

From Wolfdieter Lang, Feb 21 2017: (Start)
For a(1)..a(59) this sequence coincides with A007953.
For the sexagesimal - decimal representation of n see A055643.
The values of the positions is given in A281863.
The sum of the digits of A055643(n) = a(n).
The number of digits of the representation of n is given in A282622. (End)

Crossrefs

Extensions

More terms from Michel Marcus, Jul 12 2013
Terms a(60)-a(81) from Wolfdieter Lang, Feb 21 2017 (to distinguish it from A007953)

A282622 Number of digits of the representation of n in the alternating sexagesimal-decimal number system.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3
Offset: 1

Views

Author

Wolfdieter Lang, Feb 20 2017

Keywords

Comments

For a(1)..a(59) this sequence coincides with A055642.
For the alternating sexagesimal-decimal number system see a comment in A055643.

Crossrefs

Programs

  • Mathematica
    With[{nn = 120}, IntegerLength[Range@ 120, MixedRadix[Flatten@ ConstantArray[{6, 10}, {2 Ceiling@ Log[60, nn]}]]]] (* Version 10.2, or *)
    Table[StringLength@ If[StringTake[#, 1] == "0", StringDrop[#, 1], #] &@ StringJoin@ Map[If[# < 10, StringJoin["0", ToString@ #], ToString@ #] &, IntegerDigits[n, 60]], {n, 120}] (* Michael De Vlieger, Feb 20 2017 *)

Formula

a(n) = 1 for n = 1..9, a(n) = 2 for n = 10..59, a(n) = 3 for n = 60..599, a(n) = 4 for n = 600..3600, ..., i.e., a(n) = k, k >= 1, for n = A281863(k-1)..A281863(k)-1.

A091720 Babylonian sexagesimal (base 60) expansion of 1/7.

Original entry on oeis.org

8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17, 8, 34, 17
Offset: 0

Views

Author

Jeppe Stig Nielsen, Feb 01 2004

Keywords

Crossrefs

Programs

Previous Showing 21-23 of 23 results.