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.

Showing 1-10 of 16 results. Next

A091425 Write the natural numbers in a triangle with k digits in the k-th row, as shown below. Sequence gives the leading diagonal.

Original entry on oeis.org

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

Views

Author

J. Taylor (integersfan(AT)yahoo.com), Mar 02 2004

Keywords

Comments

1
23
456
7891
01112
131415
1617181...

Crossrefs

Cf. A104606, A104607, A104608, A104609, A104610, A104611, A104612, A104613, A104614, A104615, A104616, A104617, A104618, A104619, A104620.

Programs

  • Mathematica
    t = Flatten[IntegerDigits /@ Range[5565]]; t[[ Table[n(n + 1)/2, {n, 105}]]] (* Robert G. Wilson v, Feb 24 2005 *)

A104606 Write the natural numbers in base 2 in a triangle with k digits in the k-th row, as shown below. Sequence gives the leading diagonal.

Original entry on oeis.org

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

Views

Author

Robert G. Wilson v, Mar 16 2005

Keywords

Comments

1
10
111
0010
11101
111000...

Crossrefs

Cf. A104607, A104608, A104609, A104610, A104611, A104612, A104613, A091425, A104614, A104615, A104616, A104617, A104618, A104619, A104620.

Programs

  • Mathematica
    t = Flatten[ IntegerDigits[ Range[660], 2]]; t[[Table[n(n + 1)/2, {n, 105}]]]

A104607 Write the natural numbers in base 3 in a triangle with k digits in the k-th row, as shown below. Sequence gives the leading diagonal.

Original entry on oeis.org

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

Views

Author

Robert G. Wilson v, Mar 16 2005

Keywords

Comments

1
21
011
1220
21221
001011...

Crossrefs

Cf. A104606, A104608, A104609, A104610, A104611, A104612, A104613, A091425, A104614, A104615, A104616, A104617, A104618, A104619, A104620.

Programs

  • Mathematica
    t = Flatten[IntegerDigits[Range[1000], 3]]; t[[Table[n(n + 1)/2, {n, 105}]]]

A104608 Write the natural numbers in base 4 in a triangle with k digits in the k-th row, as shown below. Sequence gives the leading diagonal.

Original entry on oeis.org

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

Views

Author

Robert G. Wilson v, Mar 16 2005

Keywords

Comments

1
23
101
1121
32021
222330...

Crossrefs

Cf. A104606, A104607, A104609, A104610, A104611, A104612, A104613, A091425, A104614, A104615, A104616, A104617, A104618, A104619, A104620.

Programs

  • Mathematica
    t = Flatten[IntegerDigits[Range[1500], 4]]; t[[Table[n(n + 1)/2, {n, 105}]]]

A104609 Write the natural numbers in base 5 in a triangle with k digits in the k-th row, as shown below. Sequence gives the leading diagonal.

Original entry on oeis.org

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

Views

Author

Robert G. Wilson v, Mar 16 2005

Keywords

Comments

1
23
410
1112
13142
021222...

Crossrefs

Cf. A104606, A104607, A104608, A104610, A104611, A104612, A104613, A091425, A104614, A104615, A104616, A104617, A104618, A104619, A104620.

Programs

  • Mathematica
    t = Flatten[IntegerDigits[Range[1500], 5]]; t[[Table[n(n + 1)/2, {n, 105}]]]

A104610 Write the natural numbers in base 6 in a triangle with k digits in the k-th row, as shown below. Sequence gives the leading diagonal.

Original entry on oeis.org

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

Views

Author

Robert G. Wilson v, Mar 16 2005

Keywords

Comments

1
23
451
0111
21314
152021...

Crossrefs

Cf. A104606, A104607, A104608, A104609, A104611, A104612, A104613, A091425, A104614, A104615, A104616, A104617, A104618, A104619, A104620.

Programs

  • Mathematica
    t = Flatten[ IntegerDigits[ Range[1500], 6]]; t[[Table[n(n + 1)/2, {n, 105}]]]

A104611 Write the natural numbers in base 7 in a triangle with k digits in the k-th row, as shown below. Sequence gives the leading diagonal.

Original entry on oeis.org

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

Views

Author

Robert G. Wilson v, Mar 16 2005

Keywords

Comments

1
23
456
1011
12131
415162...

Crossrefs

Cf. A104606, A104607, A104608, A104609, A104610, A104612, A104613, A091425, A104614, A104615, A104616, A104617, A104618, A104619, A104620.

Programs

  • Mathematica
    t = Flatten[ IntegerDigits[ Range[1500], 7]]; t[[Table[n(n + 1)/2, {n, 105}]]]
Module[{d = Flatten[Table[IntegerDigits[n, 7], {n, 2000}]]}, TakeList[ d, Range[(Sqrt[8*Length[d] + 1] - 1)/2]]][[All, -1]] (* Requires Mathematica version 11 or later *) (* Harvey P. Dale, Jul 09 2020 *)

A104612 Write the natural numbers in base 8 in a triangle with k digits in the k-th row, as shown below. Sequence gives the leading diagonal.

Original entry on oeis.org

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

Views

Author

Robert G. Wilson v, Mar 16 2005

Keywords

Comments

1
23
456
7101
11213
141516...

Crossrefs

Cf. A104606, A104607, A104608, A104609, A104610, A104611, A104613, A091425, A104614, A104615, A104616, A104617, A104618, A104619, A104620.

Programs

  • Mathematica
    t = Flatten[ IntegerDigits[ Range[1750], 8]]; t[[Table[n(n + 1)/2, {n, 105}]]]
TakeList[Flatten[IntegerDigits[Range[3000],8]],Range[150]][[All,-1]] (* Harvey P. Dale, Nov 06 2022 *)

A104613 Write the natural numbers in base 9 in a triangle with k digits in the k-th row, as shown below. Sequence gives the leading diagonal.

Original entry on oeis.org

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

Views

Author

Robert G. Wilson v, Mar 16 2005

Keywords

Comments

1
23
456
7810
11121
314151...

Crossrefs

Cf. A104606, A104607, A104608, A104609, A104610, A104611, A104612, A091425, A104614, A104615, A104616, A104617, A104618, A104619, A104620.

Programs

  • Mathematica
    t = Flatten[ IntegerDigits[ Range[1800], 9]]; t[[Table[n(n + 1)/2, {n, 105}]]]
  • PARI
    { pln=0; Trn = 1; Trd=1;
for(ixp=1, 1625, casi = ixp; cvst=0;
while(casi != 0, cvd = casi%9;
cvst=10*cvst + cvd + 1; casi = (casi - cvd) / 9 );
while(cvst !=0, ptch = cvst%10; pln++;
if(Trn==pln, print1(ptch-1, ", "); Trd++; Trn=Trn+Trd);
cvst = (cvst - ptch) / 10 ) ) } \\\ Douglas Latimer, Apr 23 2012

A104614 Write the natural numbers in base 11 in a triangle with k digits in the k-th row, as shown below. Sequence gives the leading diagonal.

Original entry on oeis.org

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

Views

Author

Robert G. Wilson v, Mar 16 2005

Keywords

Comments

1
23
456
789A
10111
213141
5161718...

Crossrefs

Cf. A104606, A104607, A104608, A104609, A104610, A104611, A104612, A104613, A091425, A104615, A104616, A104617, A104618, A104619, A104620.

Programs

  • Mathematica
    t = Flatten[ IntegerDigits[ Range[1850], 11]]; t[[Table[n(n + 1)/2, {n, 105}]]]
Showing 1-10 of 16 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.