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-4 of 4 results.

A125118 Triangle read by rows: T(n,k) = value of the n-th repunit in base (k+1) representation, 1<=k<=n.

Original entry on oeis.org

1, 3, 4, 7, 13, 21, 15, 40, 85, 156, 31, 121, 341, 781, 1555, 63, 364, 1365, 3906, 9331, 19608, 127, 1093, 5461, 19531, 55987, 137257, 299593, 255, 3280, 21845, 97656, 335923, 960800, 2396745, 5380840, 511, 9841, 87381, 488281, 2015539, 6725601, 19173961, 48427561, 111111111
Offset: 1

Views

Author

Reinhard Zumkeller, Nov 21 2006

Keywords

Examples

			First 4 rows:
1: [1]_2
2: [11]_2 ........ [11]_3
3: [111]_2 ....... [111]_3 ....... [111]_4
4: [1111]_2 ...... [1111]_3 ...... [1111]_4 ...... [1111]_5
_
1: 1
2: 2+1 ........... 3+1
3: (2+1)*2+1 ..... (3+1)*3+1 ..... (4+1)*4+1
4: ((2+1)*2+1)*2+1 ((3+1)*3+1)*3+1 ((4+1)*4+1)*4+1 ((5+1)*5+1)*5+1.
		

Crossrefs

This triangle shares some features with triangle A104878.
This triangle is a portion of rectangle A055129.
Each term of A110737 comes from the corresponding row of this triangle.
Diagonals (adjusting offset as necessary): A060072, A023037, A031973, A173468.
Cf. A023037, A031973, A125119, A125120 (row sums).

Programs

  • Magma
    [((k+1)^n -1)/k : k in [1..n], n in [1..12]]; // G. C. Greubel, Aug 15 2022
    
  • Mathematica
    Table[((k+1)^n -1)/k, {n, 12}, {k, n}]//Flatten (* G. C. Greubel, Aug 15 2022 *)
  • SageMath
    def A125118(n,k): return ((k+1)^n -1)/k
    flatten([[A125118(n,k) for k in (1..n)] for n in (1..12)]) # G. C. Greubel, Aug 15 2022

Formula

T(n, k) = Sum_{i=0..n-1} (k+1)^i.
T(n+1, k) = (k+1)*T(n, k) + 1.
Sum_{k=1..n} T(n, k) = A125120(n).
T(2*n-1, n) = A125119(n).
T(n, 1) = A000225(n).
T(n, 2) = A003462(n) for n>1.
T(n, 3) = A002450(n) for n>2.
T(n, 4) = A003463(n) for n>3.
T(n, 5) = A003464(n) for n>4.
T(n, 9) = A002275(n) for n>8.
T(n, n) = A060072(n+1).
T(n, n-1) = A023037(n) for n>1.
T(n, n-2) = A031973(n) for n>2.
T(n, k) = A055129(n, k+1) = A104878(n+k, k+1), 1<=k<=n. - Mathew Englander, Dec 19 2020

A110738 a(n) = common ratio for row n in A112668.

Original entry on oeis.org

1, 3, 4, 3, 6, 5, 8, 3, 4, 9, 12, 5, 14, 13, 16, 3, 18, 5, 20, 3, 4, 21, 24, 5, 6, 25, 4, 13, 30, 11, 32, 3, 34, 33, 36, 5, 38, 37, 16, 3, 42, 5, 44, 21, 16, 45, 48, 5, 8, 9, 52, 5, 54, 5, 16, 13, 7, 57, 60, 7, 62, 61, 4, 3, 66, 23, 68, 13, 70, 29, 72, 5, 74, 73, 16, 37, 78, 17, 80, 3
Offset: 1

Views

Author

Amarnath Murthy, Aug 10 2005

Keywords

Crossrefs

Programs

  • Maple
    A110738 := proc(n) local a ; if n = 1 then RETURN(1) ; else a := 2 ; while (1-a^n)/(1-a) mod n <> 0 do a := a+1 ; od ; RETURN(a) ; fi ; end: for n from 1 to 80 do printf("%d, ",A110738(n)) : od : # R. J. Mathar, Mar 13 2007

Extensions

More terms from R. J. Mathar, Mar 13 2007

A110739 Arithmetic mean of row n in A112668.

Original entry on oeis.org

1, 2, 7, 10, 311, 651, 42799, 410, 9709, 43584805, 6140565047, 5086263, 4696537119847, 23436764200591, 5124095576030431, 1345210, 7563707819165039903, 52981906467, 14523213296398891966759, 87169610
Offset: 1

Views

Author

Amarnath Murthy, Aug 10 2005

Keywords

Crossrefs

Equals A110737(n)/n.

Programs

  • Maple
    A110737 := proc(n) local i,a ; if n = 1 then RETURN(1) ; else a := 2 ; while (1-a^n)/(1-a) mod n <> 0 do a := a+1 ; od ; RETURN( (1-a^n)/(1-a) ) ; fi ; end: A110739 := proc(n) A110737(n)/n ; end: for n from 1 to 25 do printf("%d, ",A110739(n)) : od : # R. J. Mathar, Mar 13 2007

Formula

For n > 1, a(n) = (A110738(n)^n-1)/(n*A110738(n)-n). - David Wasserman, Dec 12 2008

Extensions

More terms from R. J. Mathar, Mar 13 2007

A112668 Triangle read by rows: row n gives an n-term geometric progression with first term 1 such that the sum of the n terms is a multiple of n.

Original entry on oeis.org

1, 1, 3, 1, 4, 16, 1, 3, 9, 27, 1, 6, 36, 216, 1296, 1, 5, 25, 125, 625, 3125, 1, 8, 64, 512, 4096, 32768, 262144, 1, 3, 9, 27, 81, 243, 729, 2187, 1, 4, 16, 64, 256, 1024, 4096, 16384, 65536, 1, 9, 81, 729, 6561, 59049, 531441, 4782969, 43046721, 387420489, 1
Offset: 1

Views

Author

Amarnath Murthy, Aug 10 2005

Keywords

Examples

			1
1 3
1 4 16
1 3 9 27
1 6 36 216 1296
1 5 25 125 625 3125
...
		

Crossrefs

Programs

  • Maple
    A112668 := proc(n) local a2,i,a ; a2 := 2 ; while (1-a2^n)/(1-a2) mod n <> 0 do a2 := a2+1 ; od ; a := [] ; for i from 1 to n do a := [op(a), a2^(i-1)] ; od ; RETURN(a) ; end: for row from 1 to 14 do r := A112668(row) : for n from 1 to nops(r) do printf("%d, ",op(n,r)) ; od : od : # R. J. Mathar, Mar 13 2007
  • Mathematica
    Block[{a = {{1}}, k, s}, Do[k = 2; While[Mod[Total@ Set[s, NestList[# k &, 1, i - 1]], i] != 0, k++]; AppendTo[a, s], {i, 2, 10}]; a] // Flatten (* Michael De Vlieger, Dec 31 2020 *)

Extensions

More terms from R. J. Mathar, Mar 13 2007
Showing 1-4 of 4 results.