A080078 -id:A080078 - cp's OEIS frontend

A080104 Le Corbusier's "modular" (or "modulor") numbers, based on the proportions of an ideal man.

43, 53, 70, 86, 113, 140, 183, 226, 296

Offset: 0

Michael Barr, Mar 12 2003

Shown on Swiss 10 Franc note, 2003. - Emre Telatar, Mar 14 2003

Hermann Kuehn, Le Corbusier, 1887-1965: Der Modulor
Hermann Kuehn, Le Corbusier, 1887-1965: Der Modulor. [cached copy] [From _R. J. Mathar_, Aug 19 2010]

Can be obtained as a segment from the union of the two sequences 113*phi^m and 226*phi^m, m >= -13 (cf. A080105, A080106, A080078).

A139039 A triangular central symmetric sequence based on the sequence A003269: if m <= floor(n/2), t(n,m) = A003269(m+2), otherwise t(n,m) = A003269(n - (m+2)).

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 2, 3, 2, 1, 1, 1, 1, 1, 1, 2, 3, 3, 2, 1, 1, 1, 1, 1, 1, 2, 3, 4, 3, 2, 1, 1, 1

Offset: 1

Roger L. Bagula and Gary W. Adamson, May 31 2008

Row sums: {1, 2, 3, 4, 5, 6, 8, 10, 13, 16, 20, ...}. [Is this A186445 or A080078? - N. J. A. Sloane, Feb 10 2013]

The A003269 sequence is pushed back twice, so that the triangle is not almost all ones.

			{1},
{1, 1},
{1, 1, 1},
{1, 1, 1, 1},
{1, 1, 1, 1, 1},
{1, 1, 1, 1, 1, 1},
{1, 1, 1, 2, 1, 1, 1},
{1, 1, 1, 2, 2, 1, 1, 1},
{1, 1, 1, 2, 3, 2, 1, 1, 1},
{1, 1, 1, 2, 3, 3, 2, 1, 1, 1},
{1, 1, 1, 2, 3, 4, 3, 2, 1, 1, 1}

Cf. A139147, A003269.

Clear[a]; a[ -2] = 0; a[ -1] = 1; a[0] = 1; a[1] = 1; a[n_] := a[n] = a[n - 1] + a[n - 4]; (* A003269 *) Table[If[m <= Floor[n/2],a[m],a[n-m] ] ,{n,0,10},{m,0,n}]

a(n) = a(n-1) + a(n-4); t(n,m) = a(m) if m <= floor(n/2), a(n-m) otherwise.

Non-ASCII characters removed and Mathematica code corrected by Wouter Meeussen, Feb 10 2013

cp's OEIS Frontend

A080104 Le Corbusier's "modular" (or "modulor") numbers, based on the proportions of an ideal man.

Views

Author

Keywords

References

Links

Formula

A139039 A triangular central symmetric sequence based on the sequence A003269: if m <= floor(n/2), t(n,m) = A003269(m+2), otherwise t(n,m) = A003269(n - (m+2)).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions