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.

A238946 Maximal level size of arcs in divisor lattice D(n).

Original entry on oeis.org

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

Views

Author

Sung-Hyuk Cha, Mar 07 2014

Keywords

Comments

A divisor d of n has level given by bigomega(d) and in-degree given by omega(d). The number of arcs on a level is the sum of the in-degrees of all divisors on the level. - Andrew Howroyd, Mar 28 2020

Crossrefs

Cf. A001221 (omega), A001222 (bigomega), A062799, A096825, A238955, A238968.

Programs

  • PARI
    a(n)={if(n==1, 0, my(v=vector(bigomega(n))); fordiv(n, d, if(d>1, v[bigomega(d)] += omega(d))); vecmax(v))} \\ Andrew Howroyd, Mar 28 2020

Extensions

a(1) corrected by Andrew Howroyd, Mar 28 2020

A238968 Maximal level size of arcs in divisor lattice in canonical order.

Original entry on oeis.org

0, 1, 1, 2, 1, 3, 6, 1, 3, 4, 7, 12, 1, 3, 5, 8, 11, 18, 30, 1, 3, 5, 8, 6, 12, 19, 15, 24, 38, 60, 1, 3, 5, 8, 7, 13, 20, 16, 19, 30, 46, 37, 58, 90, 140, 1, 3, 5, 8, 7, 13, 20, 8, 17, 20, 31, 47, 23, 36, 43, 66, 100, 52, 80, 122, 185, 280
Offset: 0

Views

Author

Sung-Hyuk Cha, Mar 07 2014

Keywords

Examples

			Triangle T(n,k) begins:
  0;
  1;
  1, 2;
  1, 3, 6;
  1, 3, 4, 7, 12;
  1, 3, 5, 8, 11, 18, 30;
  1, 3, 5, 8,  6, 12, 19, 15, 24, 38, 60;
  ...
		

Crossrefs

Cf. A238955 in canonical order.

Programs

  • PARI
    \\ here b(n) is A238946.
    b(n)={if(n==1, 0, my(v=vector(bigomega(n))); fordiv(n, d, if(d>1, v[bigomega(d)] += omega(d))); vecmax(v))}
    N(sig)={prod(k=1, #sig, prime(k)^sig[k])}
    Row(n)={apply(s->b(N(s)), vecsort([Vecrev(p) | p<-partitions(n)], , 4))}
    { for(n=0, 8, print(Row(n))) } \\ Andrew Howroyd, Mar 28 2020

Formula

T(n,k) = A238946(A063008(n,k)). - Andrew Howroyd, Mar 28 2020

Extensions

Offset changed and terms a(50) and beyond from Andrew Howroyd, Mar 28 2020
Showing 1-2 of 2 results.