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

A035595 A035550 with periodic zeros stripped.

Original entry on oeis.org

0, 1, 1, 5, 6, 17, 22, 50, 66, 130, 174, 314, 421, 711, 953, 1535, 2051, 3179, 4232, 6365, 8434, 12369, 16313, 23431, 30750, 43381, 56658, 78712, 102309, 140226, 181418, 245723
Offset: 0

Views

Author

Keywords

Extensions

More terms from Jason Earls, Apr 03 2001

A035544 Number of partitions of n with equal number of parts congruent to each of 1 and 3 (mod 4).

Original entry on oeis.org

1, 0, 1, 0, 3, 0, 4, 0, 10, 0, 13, 0, 28, 0, 37, 0, 72, 0, 96, 0, 172, 0, 230, 0, 391, 0, 522, 0, 846, 0, 1129, 0, 1766, 0, 2348, 0, 3564, 0, 4722, 0, 6992, 0, 9226, 0, 13371, 0, 17568, 0, 25006, 0, 32708, 0, 45817, 0, 59668, 0, 82430, 0, 106874, 0, 145830, 0, 188260, 0
Offset: 0

Views

Author

Keywords

Comments

From Gus Wiseman, Oct 12 2022: (Start)
Also the number of integer partitions of n whose skew-alternating sum is 0, where we define the skew-alternating sum of a sequence (A, B, C, D, E, F, G, ...) to be A - B - C + D + E - F - G + ... These are the conjugates of the partitions described in the name. For example, the a(0) = 1 through a(8) = 10 partitions are:
() . (11) . (22) . (33) . (44)
(211) (321) (422)
(1111) (2211) (431)
(111111) (2222)
(3221)
(3311)
(22211)
(221111)
(2111111)
(11111111)
The ordered version (compositions) is A138364
These partitions are ranked by A357636, reverse A357632.
The reverse version is A357640 (aerated).
(End)

Examples

			From _Gus Wiseman_, Oct 12 2022: (Start)
The a(0) = 1 through a(8) = 10 partitions:
  ()  .  (2)  .  (4)   .  (6)    .  (8)
                 (22)     (42)      (44)
                 (31)     (222)     (53)
                          (321)     (62)
                                    (71)
                                    (422)
                                    (431)
                                    (2222)
                                    (3221)
                                    (3311)
(End)
		

Crossrefs

The case with at least one odd part is A035550.
Removing zeros gives A035594.
Central column k=0 of A357638.
These partitions are ranked by A357707.
A000041 counts integer partitions.
A344651 counts partitions by alternating sum, ordered A097805.

Programs

  • Mathematica
    skats[f_]:=Sum[f[[i]]*(-1)^(1+Ceiling[(i+1)/2]),{i,Length[f]}];
    Table[Length[Select[IntegerPartitions[n],skats[#]==0&]],{n,0,30}] (* Gus Wiseman,Oct 12 2022 *)

Extensions

More terms from David W. Wilson

A357707 Numbers whose prime indices have equal number of parts congruent to each of 1 and 3 (mod 4).

Original entry on oeis.org

1, 3, 7, 9, 10, 13, 19, 21, 27, 29, 30, 34, 37, 39, 43, 49, 53, 55, 57, 61, 62, 63, 70, 71, 79, 81, 87, 89, 90, 91, 94, 100, 101, 102, 107, 111, 113, 115, 117, 129, 130, 131, 133, 134, 139, 147, 151, 159, 163, 165, 166, 169, 171, 173, 181, 183, 186, 187, 189
Offset: 1

Views

Author

Gus Wiseman, Oct 12 2022

Keywords

Comments

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Examples

			The terms together with their prime indices begin:
     1: {}
     3: {2}
     7: {4}
     9: {2,2}
    10: {1,3}
    13: {6}
    19: {8}
    21: {2,4}
    27: {2,2,2}
    29: {10}
    30: {1,2,3}
		

Crossrefs

These partitions are counted by A035544.
Includes A066207 = products of primes of even index.
The conjugate partitions are ranked by A357636, reverse A357632.
The conjugate reverse version is A357640 (aerated).
A056239 adds up prime indices, row sums of A112798.
A316524 gives alternating sum of prime indices, reverse A344616.
A344651 counts partitions by alternating sum, ordered A097805.
A357705 counts reversed partitions by skew-alternating sum, half A357704.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Select[Range[100],Count[primeMS[#],?(Mod[#,4]==1&)]==Count[primeMS[#],?(Mod[#,4]==3&)]&]
Showing 1-3 of 3 results.