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

A106394 Table read by rows, where n-th row is denominators of Egyptian fraction, derived using the greedy algorithm, of the n-th harmonic number (Sum_{k=1..n} 1/k).

Original entry on oeis.org

1, 1, 2, 1, 2, 3, 1, 1, 12, 1, 1, 4, 30, 1, 1, 3, 9, 180, 1, 1, 2, 11, 514, 395780, 1, 1, 2, 5, 56, 1, 1, 2, 4, 13, 489, 5339880, 1, 1, 2, 3, 11, 212, 113013, 18448242120, 1, 1, 1, 51, 3711, 30680205, 1192281609186360, 1, 1, 1, 10, 312, 180180
Offset: 1

Views

Author

Leroy Quet, May 01 2005

Keywords

Comments

Let s be the sum of the harmonic numbers. When s > 1, the Egyptian fraction here begins with floor(s) 1's. - Jud McCranie, May 03 2005
The n-th row of the table has A112330(n) terms.

Examples

			By the greedy algorithm, Sum_{k=1..4} 1/k = 1 + 1 + 1/12.
Table begins:
  1;
  1, 2;
  1, 2,  3;
  1, 1, 12;
  1, 1,  4, 30;
  1, 1,  3,  9, 180;
		

Crossrefs

Programs

  • Mathematica
    egyptFraction[f_] := Ceiling[1/Most[NestWhileList[# - 1/Ceiling[1/#] &, f, # != 0 &]]]; row[n_] := egyptFraction[HarmonicNumber[n]]; Table[row[n], {n, 1, 12}] // Flatten (* Amiram Eldar, Apr 09 2022 *)

Extensions

More terms from Jud McCranie, May 03 2005

A105401 a(n) is the final term of the n-th row of A106394.

Original entry on oeis.org

1, 2, 3, 12, 30, 180, 395780, 56, 5339880, 18448242120, 1192281609186360, 180180, 393869810468558572779517216129800, 2914872400440, 2914872400440, 180026486640, 4193048661254917704240, 2640766128, 11832093494672880
Offset: 1

Views

Author

Leroy Quet, May 01 2005

Keywords

Comments

It's interesting that some terms are so much smaller than their neighbors, like row 8 (1 1 2 5 56) and row 26 (1 1 1 2 3 48 3952 76271067 17451826907684400). - Joshua Zucker, May 11 2006

Crossrefs

Programs

  • Mathematica
    egyptFraction[f_] := Ceiling[1/Most[NestWhileList[# - 1/Ceiling[1/#] &, f, # != 0 &]]]; a[n_] := egyptFraction[HarmonicNumber[n]][[-1]]; Array[a, 20] (* Amiram Eldar, Apr 09 2022 *)

Extensions

More terms from Joshua Zucker, May 11 2006
Showing 1-2 of 2 results.