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 11-20 of 25 results. Next

A031246 Length of n-th run of digit 4 in A031235.

Original entry on oeis.org

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

Views

Author

Clark Kimberling

Keywords

Extensions

a(86) corrected by Sean A. Irvine, Apr 19 2020

A031247 a(n)=(# 1's)-(# 0's) in first n terms of A031235.

Original entry on oeis.org

1, 1, 1, 1, 0, 1, 2, 3, 3, 4, 4, 5, 5, 6, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 5, 4, 5, 6, 5, 6, 6, 5, 6, 6, 5, 6, 6, 5, 6, 5, 6, 7, 8, 9, 10, 10, 11, 12, 12, 13, 14, 14, 15, 16, 15, 15, 16, 17, 17, 18, 18, 18
Offset: 1

Views

Author

Clark Kimberling

Keywords

A031248 a(n)=(# 1's)-(# 2's) in first n terms of A031235.

Original entry on oeis.org

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

Views

Author

Clark Kimberling

Keywords

Programs

  • Mathematica
    Accumulate[Which[#==1,1,#==2,-1,True,0]&/@(Reverse[IntegerDigits[ #,5]]&/@ Range[ 0,40]//Flatten)] (* Harvey P. Dale, Aug 02 2016 *)

A031249 a(n)=(# 2's)-(# 3's) in first n terms of A031235.

Original entry on oeis.org

0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 2, 3, 4, 3, 4, 4, 5, 5, 4, 4, 3, 4, 3, 2, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 2, 2, 3, 4, 4, 3, 4, 4, 4, 5, 5, 5
Offset: 1

Views

Author

Clark Kimberling

Keywords

A031250 (# 3's)-(# 4's) in first n terms of A031235.

Original entry on oeis.org

0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 2, 2, 3, 4, 5, 4, 5, 5, 4, 4, 3, 3, 2, 3, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0
Offset: 1

Views

Author

Clark Kimberling

Keywords

Crossrefs

Cf. A031235.

A030308 Triangle T(n, k): Write n in base 2, reverse order of digits, to get the n-th row.

Original entry on oeis.org

0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1
Offset: 0

Views

Author

Clark Kimberling

Keywords

Comments

This is the quite common, so-called "bittest" function, see PARI code. - M. F. Hasler, Jul 21 2013
For a given number m and a digit position k the corresponding sequence index n can be calculated by n(m, k) = m*(1 + floor(log_2(m))) - 2^(1 + floor(log_2(m))) + k + 1. For example: counted from right to left, the second digit of m = 13 (binary 1101) is '0'. Hence the sequence index is n = n(13, 2) = 39. - Hieronymus Fischer, May 05 2007
A070939(n) is the length of n-th row; A000120(n) is the sum of n-th row; A030101(n) is the n-th row seen as binary number; A000035(n) = T(n, 0). - Reinhard Zumkeller, Jun 17 2012

Examples

			Triangle begins :
0
1
0, 1
1, 1
0, 0, 1
1, 0, 1
0, 1, 1
1, 1, 1
0, 0, 0, 1
1, 0, 0, 1 - _Philippe Deléham_, Oct 12 2011

Links

Crossrefs

Cf. A030190.
Cf. A030341, A030386, A031235, A030567, A031007, A031045, A031087, A031298 for the base-3 to base-10 analogs.

Programs

  • Haskell
    a030308 n k = a030308_tabf !! n !! k
a030308_row n = a030308_tabf !! n
a030308_tabf = iterate bSucc [0] where
   bSucc []       = [1]
   bSucc (0 : bs) = 1 : bs
   bSucc (1 : bs) = 0 : bSucc bs
-- Reinhard Zumkeller, Jun 17 2012
  • Maple
    A030308_row := n -> op(convert(n,base, 2)):
seq(A030308_row(n), n=0..23); # Peter Luschny, Nov 28 2017
  • Mathematica
    Flatten[Table[Reverse[IntegerDigits[n, 2]], {n, 0, 23}]] (* T. D. Noe, Oct 12 2011 *)
  • PARI
    A030308(n,k)=bittest(n,k) \\ Assuming that columns are numbered starting with k=0, as suggested by the formula from R. Zumkeller. - M. F. Hasler, Jul 21 2013
  • Python
    for n in range(20): print([int(z) for z in str(bin(n)[2:])[::-1]]) # Indranil Ghosh, Mar 31 2017
  • Sage
    A030308_row = lambda n: n.bits() if n > 0 else [0]
for n in (0..23): print(A030308_row(n)) # Peter Luschny, Nov 28 2017
  • Scala
    (0 to 31).map(Integer.toString(, 2).reverse).mkString.split("").map(Integer.parseInt()).toList // Alonso del Arte, Feb 10 2020

Formula

a(n) = floor(m/2^(k - 1)) mod 2, where m = max(j|A001855(j) < n) and k = n - A001855(m). - Hieronymus Fischer, May 05 2007, Sep 10 2007
T(n, k) = (n // 2^k) mod 2, for 0 <= k <= log[2](n) and n > 0; T(0, 0) = 0. ('//' denotes integer division). - Peter Luschny, Apr 20 2023

Extensions

Initial 0 and better name by Philippe Deléham, Oct 12 2011

A030341 Triangle T(n,k): write n in base 3, reverse order of digits.

Original entry on oeis.org

0, 1, 2, 0, 1, 1, 1, 2, 1, 0, 2, 1, 2, 2, 2, 0, 0, 1, 1, 0, 1, 2, 0, 1, 0, 1, 1, 1, 1, 1, 2, 1, 1, 0, 2, 1, 1, 2, 1, 2, 2, 1, 0, 0, 2, 1, 0, 2, 2, 0, 2, 0, 1, 2, 1, 1, 2, 2, 1, 2, 0, 2, 2, 1, 2, 2, 2, 2, 2, 0, 0, 0, 1, 1, 0, 0, 1, 2, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 2, 1, 0, 1
Offset: 0

Views

Author

Clark Kimberling

Keywords

Examples

			Triangle begins :
0
1
2
0, 1
1, 1
2, 1
0, 2
1, 2
2, 2
0, 0, 1
1, 0, 1
2, 0, 1
0, 1, 1
1, 1, 1
2, 1, 1 ...

Links

Crossrefs

Cf. A081604 (row lengths), A053735 (row sums), A007089, A003137.
Cf. A030308, A030386, A031235, A030567, A031007, A031045, A031087, A031298 for the base-2 to base-10 analogs.

Programs

  • Haskell
    a030341 n k = a030341_tabf !! n !! k
a030341_row n = a030341_tabf !! n
a030341_tabf = iterate succ [0] where
   succ []     = [1]
   succ (2:ts) = 0 : succ ts
   succ (t:ts) = (t + 1) : ts
-- Reinhard Zumkeller, Feb 21 2013
  • Maple
    A030341_row := n -> op(convert(n, base, 3)):
seq(A030341_row(n), n=0..32); # Peter Luschny, Nov 28 2017
  • Mathematica
    Flatten[Table[Reverse[IntegerDigits[n,3]],{n,0,40}]] (* Harvey P. Dale, Oct 20 2014 *)
  • PARI
    A030341(n, k=-1)=/*k<0&&error("Flattened sequence not yet implemented.")*/n\3^k%3 \\ Assuming that columns are numbered starting with k=0 as in A030308, A030567 and others. - M. F. Hasler, Jul 21 2013

Extensions

Initial 0 and better name by Philippe Deléham, Oct 20 2011

A031298 Triangle T(n,k): write n in base 10, reverse order of digits.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 1, 1, 1, 2, 1, 3, 1, 4, 1, 5, 1, 6, 1, 7, 1, 8, 1, 9, 1, 0, 2, 1, 2, 2, 2, 3, 2, 4, 2, 5, 2, 6, 2, 7, 2, 8, 2, 9, 2, 0, 3, 1, 3, 2, 3, 3, 3, 4, 3, 5, 3, 6, 3, 7, 3, 8, 3, 9, 3, 0, 4, 1, 4, 2, 4, 3, 4, 4, 4, 5, 4, 6, 4, 7, 4, 8, 4, 9, 4, 0
Offset: 0

Views

Author

Clark Kimberling

Keywords

Comments

The length of n-th row is given in A055642(n). - Reinhard Zumkeller, Jul 04 2012
According to the formula for T(n,1), columns are numbered starting with 1. One might also number columns starting with the offset 0, as to have the coefficient of 10^k in column k. - M. F. Hasler, Jul 21 2013

Links

Crossrefs

Cf. A030308, A030341, A030386, A031235, A030567, A031007, A031045, A031087 for the base-2 to base-9 analogs.

Programs

  • Haskell
    a031298 n k = a031298_tabf !! n !! k
a031298_row n = a031298_tabf !! n
a031298_tabf = iterate succ [0] where
   succ []     = [1]
   succ (9:ds) = 0 : succ ds
   succ (d:ds) = (d + 1) : ds
-- Reinhard Zumkeller, Jul 04 2012
  • Mathematica
    Table[Reverse[IntegerDigits[n]],{n,0,50}]//Flatten (* Harvey P. Dale, Mar 07 2023 *)
  • PARI
    T(n,k)=n\10^(k-1)%10 \\ M. F. Hasler, Jul 21 2013

Formula

T(n,1) = A010879(n); T(n,A055642(n)) = A000030(n). - Reinhard Zumkeller, Jul 04 2012

Extensions

Initial 0 and better name by Philippe Deléham, Oct 20 2011
Edited by M. F. Hasler, Jul 21 2013

A053824 Sum of digits of (n written in base 5).

Original entry on oeis.org

0, 1, 2, 3, 4, 1, 2, 3, 4, 5, 2, 3, 4, 5, 6, 3, 4, 5, 6, 7, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 2, 3, 4, 5, 6, 3, 4, 5, 6, 7, 4, 5, 6, 7, 8, 5, 6, 7, 8, 9, 2, 3, 4, 5, 6, 3, 4, 5, 6, 7, 4, 5, 6, 7, 8, 5, 6, 7, 8, 9, 6, 7, 8, 9, 10, 3, 4, 5, 6, 7, 4, 5, 6, 7, 8, 5, 6, 7, 8, 9, 6, 7, 8, 9, 10, 7, 8, 9, 10, 11, 4, 5, 6
Offset: 0

Views

Author

Henry Bottomley, Mar 28 2000

Keywords

Comments

Also the fixed point of the morphism 0->{0,1,2,3,4}, 1->{1,2,3,4,5}, 2->{2,3,4,5,6}, etc. - Robert G. Wilson v, Jul 27 2006

Examples

			a(20) = 4 + 0 = 4 because 20 is written as 40 in base 5.
From _Omar E. Pol_, Feb 21 2010: (Start)
It appears that this can be written as a triangle:
  0,
  1,2,3,4,
  1,2,3,4,5,2,3,4,5,6,3,4,5,6,7,4,5,6,7,8,
  1,2,3,4,5,2,3,4,5,6,3,4,5,6,7,4,5,6,7,8,5,6,7,8,9,2,3,4,5,6,3,4,5,6,7,4,5,...
See the conjecture in the entry A000120. (End)

Links

Crossrefs

Cf. A231668, A231669, A231670, A231671, A138530.
Sum of digits of n written in bases 2-16: A000120, A053735, A053737, this sequence, A053827, A053828, A053829, A053830, A007953, A053831, A053832, A053833, A053834, A053835, A053836.
Cf. A173525. - Omar E. Pol, Feb 21 2010
Cf. A173670 (last nonzero decimal digit of (10^n)!). - Washington Bomfim, Jan 01 2011

Programs

  • Haskell
    a053824 0 = 0
a053824 x = a053824 x' + d  where (x', d) = divMod x 5
-- Reinhard Zumkeller, Jan 31 2014
  • Magma
    [&+Intseq(n, 5):n in [0..100]]; // Marius A. Burtea, Aug 24 2019
  • Mathematica
    Table[Plus @@ IntegerDigits[n, 5], {n, 0, 100}] (* or *)
Nest[Flatten[ #1 /. a_Integer -> Table[a + i, {i, 0, 4}]] &, {0}, 4] (* Robert G. Wilson v, Jul 27 2006 *)
f[n_] := n - 4 Sum[Floor[n/5^k], {k, n}]; Array[f, 103, 0]
  • PARI
    a(n)=if(n<1,0,if(n%5,a(n-1)+1,a(n/5)))
  • PARI
    a(n) = sumdigits(n, 5); \\ Michel Marcus, Aug 24 2019

Formula

From Benoit Cloitre, Dec 19 2002: (Start)
a(0) = 0, a(5n+i) = a(n) + i for 0 <= i <= 4;
a(n) = n - 4*Sum_{k>=1} floor(n/5^k) = n - 4*A027868(n). (End)
a(n) = A138530(n,5) for n > 4. - Reinhard Zumkeller, Mar 26 2008
If i >= 2, a(2^i) mod 4 = 0. - Washington Bomfim, Jan 01 2011
a(n) = Sum_{k>=0} A031235(n,k). - Philippe Deléham, Oct 21 2011
a(0) = 0; a(n) = a(n - 5^floor(log_5(n))) + 1. - Ilya Gutkovskiy, Aug 23 2019
Sum_{n>=1} a(n)/(n*(n+1)) = 5*log(5)/4 (Shallit, 1984). - Amiram Eldar, Jun 03 2021

A030567 Triangle T(n,k): Write n in base 6 and reverse order of digits to get row n.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 0, 1, 1, 1, 2, 1, 3, 1, 4, 1, 5, 1, 0, 2, 1, 2, 2, 2, 3, 2, 4, 2, 5, 2, 0, 3, 1, 3, 2, 3, 3, 3, 4, 3, 5, 3, 0, 4, 1, 4, 2, 4, 3, 4, 4, 4, 5, 4, 0, 5, 1, 5, 2, 5, 3, 5, 4, 5, 5, 5, 0, 0, 1, 1, 0, 1, 2, 0, 1, 3, 0, 1, 4, 0, 1, 5, 0, 1, 0, 1, 1, 1, 1, 1, 2
Offset: 0

Views

Author

Clark Kimberling

Keywords

Comments

If columns are numbered starting with k=0, then T(n,k) contains the coefficient of 6^k in n's base-6 expansion. - M. F. Hasler, Jul 21 2013

Links

Crossrefs

See A030548 for a quite complete list of crossreferences.
Cf. A030568 - A030573 for positions of a given digit.
Cf. A030575 - A030580 for run lengths, A030581 - A030585 for more.
Row sums (same as those of A030548) are in A053827.
Cf. A030308, A030341, A030386, A031235, A031007, A031045, A031087, A031298 for the base-2 to base-10 analogs.

Programs

  • Mathematica
    Flatten[Table[Reverse[IntegerDigits[n,6]],{n,0,50}]] (* Harvey P. Dale, Sep 27 2015 *)
  • PARI
    A030567(n,k=-1)=/*k<0&&error("Flattened sequence not yet implemented.")*/n\6^k%6 \\ Assuming that columns start with k=0, cf. comment. TO DO: implement flattened sequence, such that A030567(n)=a(n). - M. F. Hasler, Jul 21 2013

Extensions

Initial 0 and better name from Philippe Deléham, Oct 20 2011
Edited and crossrefs added by M. F. Hasler, Jul 21 2013
Previous Showing 11-20 of 25 results. Next

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.