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.

A018256 Divisors of 36.

Original entry on oeis.org

1, 2, 3, 4, 6, 9, 12, 18, 36
Offset: 1

Views

Author

N. J. A. Sloane

Keywords

Comments

36 is a highly composite number: A002182(7)=36. - Reinhard Zumkeller, Jun 21 2010
Numbers with all prime indices and exponents <= 2. Reversing inequalities gives A062739, strict A353502. - Gus Wiseman, Jun 28 2022

Links

Crossrefs

Cf. A018253, A018261, A018266, A018293, A018321, A018350, A018412, A018609, A018676, A178877, A178878, A165412, A178858, A178859, A178860, A178861, A178862, A178863, A178864.
Cf. A003586, A004709, A018338, A018710, A062739, A353502.

Programs

Formula

Intersection of A003586 (3-smooth) and A004709 (cubefree). - Gus Wiseman, Jun 28 2022

A353428 Number of integer compositions of n with all parts and all run-lengths > 2.

Original entry on oeis.org

1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 2, 0, 0, 2, 1, 0, 2, 0, 2, 4, 0, 0, 8, 3, 0, 10, 4, 4, 15, 4, 8, 24, 7, 8, 42, 16, 10, 59, 31, 27, 87, 37, 52, 149, 62, 66, 233, 121, 111, 342, 207, 204, 531, 308, 351, 864, 487, 536, 1373, 864, 865, 2057, 1440, 1509, 3232
Offset: 0

Views

Author

Gus Wiseman, May 16 2022

Keywords

Examples

			The a(n) compositions for selected n:
  n=16:   n=18:     n=20:    n=21:      n=24:
----------------------------------------------------
  (4444)  (666)     (5555)   (777)      (888)
          (333333)  (44444)  (333444)   (6666)
                             (444333)   (333555)
                             (3333333)  (444444)
                                        (555333)
                                        (3333444)
                                        (4443333)
                                        (33333333)

Links

Crossrefs

Allowing any multiplicities gives A078012, partitions A008483.
The version for no (instead of all) parts or run-lengths > 2 is A137200.
Allowing any parts gives A353400, partitions A100405.
The version for partitions is A353501, ranked by A353502.
The version for > 1 instead of > 2 is A353508, partitions A339222.
A003242 counts anti-run compositions, ranked by A333489.
A008466 counts compositions with some part > 2.
A011782 counts compositions.
A114901 counts compositions with no runs of length 1, ranked by A353427.
A128695 counts compositions with no run-lengths > 2.
A261983 counts non-anti-run compositions.
A335464 counts compositions with a run-length > 2.
Cf. A032020, A044813, A098859, A165413, A318928, A329738, A329739, A333755, A353390, A353429.

Programs

  • Maple
    b:= proc(n, h) option remember; `if`(n=0, 1, add(
     `if`(i=h, 0, add(b(n-i*j, i), j=3..n/i)), i=3..n/3))
    end:
a:= n-> b(n, 0):
seq(a(n), n=0..80);  # Alois P. Heinz, May 18 2022
  • Mathematica
    Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],!MemberQ[#,1|2]&&!MemberQ[Length/@Split[#],1|2]&]],{n,0,15}]

Extensions

a(26)-a(66) from Alois P. Heinz, May 17 2022

A126272 a(1)=27; if n = Product p_i^e_i, n>1, then a(n) = Product p_{i+2}^{e_i+2}.

Original entry on oeis.org

27, 125, 343, 625, 1331, 42875, 2197, 3125, 2401, 166375, 4913, 214375, 6859, 274625, 456533, 15625, 12167, 300125, 24389, 831875, 753571, 614125, 29791, 1071875, 14641, 857375, 16807, 1373125, 50653, 57066625, 68921, 78125, 1685159
Offset: 1

Views

Author

Jonathan Vos Post, Mar 09 2007

Keywords

Comments

Analog of A045967 a(1)=4; if n = Product p_i^e_i, n>1, then a(n) = Product p_{i+1}^{e_i+1}. In a sense, n is the zeroth sequence in a family of sequences, A045967 is the first sequence in a family of sequences and a(n) is the second sequence in a family of sequences.
If we had a(1) = 1 (instead of 4), then this would be multiplicative and a permutation of A353502. - Amiram Eldar, Aug 11 2022

Crossrefs

Cf. A000040, A045967, A065483, A353502.

Programs

  • Maple
    A126272 := proc(n) local pf,i,p,e,resul ; if n = 1 then 27 ; else pf := ifactors(n)[2] ; resul := 1 ; for i from 1 to nops(pf) do p := op(1,op(i,pf)) ; e := op(2,op(i,pf)) ; resul := resul * nextprime(nextprime(p))^(e+2) ; od ; resul ; fi ; end: for n from 1 to 40 do printf("%d, ",A126272(n)) ; od ; # R. J. Mathar, Apr 20 2007
  • Mathematica
    f[p_, e_] := NextPrime[p, 2]^(e + 2); a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100]

Formula

Sum_{n>=1} 1/a(n) = (72/95)*A065483 - 26/27. - Amiram Eldar, Aug 11 2022

Extensions

More terms from R. J. Mathar, Apr 20 2007

A353501 Number of integer partitions of n with all parts and all multiplicities > 2.

Original entry on oeis.org

1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 2, 0, 0, 2, 1, 0, 2, 0, 2, 3, 0, 0, 6, 2, 0, 6, 3, 2, 9, 2, 5, 11, 3, 5, 18, 6, 4, 20, 13, 8, 26, 10, 17, 37, 14, 16, 51, 23, 24, 58, 38, 32, 75, 44, 52, 100, 52, 59, 143, 75, 77, 159, 114, 112, 203, 132, 154, 266, 175
Offset: 0

Views

Author

Gus Wiseman, May 16 2022

Keywords

Examples

			The a(n) partitions for selected n (A = 10):
  n=9:   n=12:   n=21:      n=24:       n=30:
------------------------------------------------------
  (333)  (444)   (777)      (888)       (AAA)
         (3333)  (444333)   (6666)      (66666)
                 (3333333)  (444444)    (555555)
                            (555333)    (666444)
                            (4443333)   (777333)
                            (33333333)  (6663333)
                                        (55533333)
                                        (444333333)
                                        (3333333333)

Crossrefs

The version for only parts > 2 is A008483.
The version for only multiplicities > 2 is A100405.
The version for parts and multiplicities > 1 is A339222, ranked by A062739.
For prime parts and multiplicities we have A351982, compositions A353429.
The version for compositions is A353428 (partial A078012, A353400).
These partitions are ranked by A353502.
A000726 counts partitions with all mults <= 2, compositions A128695.
A004250 counts partitions with some part > 2, compositions A008466.
A137200 counts compositions with all parts and run-lengths <= 2.
Cf. A003242, A047966, A055923, A098859, A114901, A325534, A333755, A335464.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Min@@#>2&&Min@@Length/@Split[#]>2&]],{n,0,30}]
Showing 1-4 of 4 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.