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-10 of 14 results. Next

A366528 Sum of odd prime indices of n.

Original entry on oeis.org

0, 1, 0, 2, 3, 1, 0, 3, 0, 4, 5, 2, 0, 1, 3, 4, 7, 1, 0, 5, 0, 6, 9, 3, 6, 1, 0, 2, 0, 4, 11, 5, 5, 8, 3, 2, 0, 1, 0, 6, 13, 1, 0, 7, 3, 10, 15, 4, 0, 7, 7, 2, 0, 1, 8, 3, 0, 1, 17, 5, 0, 12, 0, 6, 3, 6, 19, 9, 9, 4, 0, 3, 21, 1, 6, 2, 5, 1, 0, 7, 0, 14, 23, 2
Offset: 1

Views

Author

Gus Wiseman, Oct 22 2023

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, sum A056239(n).

Examples

			The prime indices of 198 are {1,2,2,5}, so a(198) = 1+5 = 6.
		

Crossrefs

Zeros are A066207, counted by A035363.
The triangle for this rank statistic is A113685, without zeros A365067.
For count instead of sum we have A257991, even A257992.
Nonzeros are A366322, counted by A086543.
The even version is A366531, halved A366533, triangle A113686.
A000009 counts partitions into odd parts, ranks A066208.
A053253 = partitions with all odd parts and conjugate parts, ranks A352143.
A066967 adds up sums of odd parts over all partitions.
A112798 lists prime indices, reverse A296150, length A001222, sum A056239.
A162641 counts even prime exponents, odd A162642.
A352142 = odd indices with odd exponents, counted by A117958.

Programs

  • Mathematica
    Table[Total[Cases[FactorInteger[n], {p_?(OddQ@*PrimePi),k_}:>PrimePi[p]*k]],{n,100}]

Formula

a(n) = A056239(n) - A366531(n).

A365067 Irregular triangle read by rows where T(n,k) is the number of integer partitions of n whose odd parts sum to k, for k ranging from mod(n,2) to n in steps of 2.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 2, 1, 2, 2, 2, 3, 3, 2, 2, 4, 3, 4, 3, 5, 5, 3, 4, 4, 6, 5, 6, 6, 5, 8, 7, 5, 6, 8, 6, 10, 7, 10, 9, 10, 8, 12, 11, 7, 10, 12, 12, 10, 15, 11, 14, 15, 15, 16, 12, 18, 15, 11, 14, 20, 18, 20, 15, 22, 15, 22, 21, 25, 24, 24, 18, 27
Offset: 0

Views

Author

Gus Wiseman, Oct 16 2023

Keywords

Comments

The version for all k = 0..n is A113685 (including zeros).

Examples

			Triangle begins:
   1
   1
   1  1
   1  2
   2  1  2
   2  2  3
   3  2  2  4
   3  4  3  5
   5  3  4  4  6
   5  6  6  5  8
   7  5  6  8  6 10
   7 10  9 10  8 12
  11  7 10 12 12 10 15
  11 14 15 15 16 12 18
  15 11 14 20 18 20 15 22
  15 22 21 25 24 24 18 27
Row n = 8 counts the following partitions:
  (8)     (611)    (431)     (521)      (71)
  (62)    (4211)   (41111)   (332)      (53)
  (44)    (22211)  (3221)    (32111)    (5111)
  (422)            (221111)  (2111111)  (3311)
  (2222)                                (311111)
                                        (11111111)
Row n = 9 counts the following partitions:
  (81)     (63)      (54)       (72)        (9)
  (621)    (6111)    (522)      (5211)      (711)
  (441)    (432)     (4311)     (3321)      (531)
  (4221)   (42111)   (411111)   (321111)    (51111)
  (22221)  (3222)    (32211)    (21111111)  (333)
           (222111)  (2211111)              (33111)
                                            (3111111)
                                            (111111111)
		

Crossrefs

Row sums are A000041.
The version including all k is A113685, even version A113686.
Column k = 1 is A119620.
The even version and the reverse version are both A174713.
For odd-indexed instead of odd parts we have A346697, even version A346698.
The corresponding rank statistic is A366528, even version A366531.
A000009 counts partitions into odd parts, ranks A066208.
A086543 counts partitions with odd parts, ranks A366322.
A239261 counts partitions with (sum of odd parts) = (sum of even parts).

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], Total[Select[#,OddQ]]==k&]],{n,0,15},{k,Mod[n,2],n,2}]

Formula

T(n,k) = A000009(k) * A000041((n-k)/2).

A366531 Sum of even prime indices of n.

Original entry on oeis.org

0, 0, 2, 0, 0, 2, 4, 0, 4, 0, 0, 2, 6, 4, 2, 0, 0, 4, 8, 0, 6, 0, 0, 2, 0, 6, 6, 4, 10, 2, 0, 0, 2, 0, 4, 4, 12, 8, 8, 0, 0, 6, 14, 0, 4, 0, 0, 2, 8, 0, 2, 6, 16, 6, 0, 4, 10, 10, 0, 2, 18, 0, 8, 0, 6, 2, 0, 0, 2, 4, 20, 4, 0, 12, 2, 8, 4, 8, 22, 0, 8, 0, 0, 6
Offset: 1

Views

Author

Gus Wiseman, Oct 22 2023

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 prime indices of 198 are {1,2,2,5}, so a(198) = 2+2 = 4.
		

Crossrefs

Zeros are A066208, counted by A000009.
The triangle for the odd version is A113685, without zeros A365067.
The triangle for this statistic is A113686, without zeros A174713.
The odd version is A366528.
The halved version is A366533.
A066207 lists numbers with all even prime indices, counted by A035363.
A112798 lists prime indices, reverse A296150, length A001222, sum A056239.
A239261 counts partitions with sum of odd parts = sum of even parts.
A257991 counts odd prime indices, even A257992.
A346697 adds up odd-indexed prime indices, even-indexed A346698.
A366322 lists numbers with not all prime indices even, counted by A086543.

Programs

  • Mathematica
    Table[Total[Cases[FactorInteger[n], {p_?(EvenQ@*PrimePi),k_}:>PrimePi[p]*k]],{n,100}]

Formula

a(n) = A056239(n) - A366528(n).

A366533 Sum of even prime indices of n divided by 2.

Original entry on oeis.org

0, 0, 1, 0, 0, 1, 2, 0, 2, 0, 0, 1, 3, 2, 1, 0, 0, 2, 4, 0, 3, 0, 0, 1, 0, 3, 3, 2, 5, 1, 0, 0, 1, 0, 2, 2, 6, 4, 4, 0, 0, 3, 7, 0, 2, 0, 0, 1, 4, 0, 1, 3, 8, 3, 0, 2, 5, 5, 0, 1, 9, 0, 4, 0, 3, 1, 0, 0, 1, 2, 10, 2, 0, 6, 1, 4, 2, 4, 11, 0, 4, 0, 0, 3, 0, 7
Offset: 1

Views

Author

Gus Wiseman, Oct 23 2023

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 prime indices of 198 are {1,2,2,5}, so a(198) = (2+2)/2 = 2.
		

Crossrefs

Zeros are A066208, counted by A000009.
The triangle for this statistic (without zeros) is A174713.
The un-halved odd version is A366528.
The un-halved version is A366531.
A066207 lists numbers with all even prime indices, counted by A035363.
A112798 lists prime indices, reverse A296150, length A001222, sum A056239.
A113685 counts partitions by sum of odd parts, even version A113686.
A239261 counts partitions with (sum of odd parts) = (sum of even parts).
A257991 counts odd prime indices, even A257992.
A346697 adds up odd-indexed prime indices, even-indexed A346698.
A365067 counts partitions by sum of odd parts (without zeros).
A366322 lists numbers with not all prime indices even, counted by A086543.

Programs

  • Maple
    f:= proc(n) local F,t;
      F:= map(t -> [numtheory:-Pi(t[1]),t[2]], ifactors(n)[2]);
      add(`if`(t[1]::even, t[1]*t[2]/2, 0), t=F)
    end proc:
    map(f, [$1..100]); # Robert Israel, Nov 22 2023
  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Table[Total[Select[prix[n],EvenQ]]/2,{n,100}]

Formula

a(n) = A366531(n)/2.

A366845 Number of integer partitions of n that contain at least one even part and whose halved even parts are relatively prime.

Original entry on oeis.org

0, 0, 1, 1, 2, 3, 5, 7, 11, 15, 23, 31, 43, 58, 82, 107, 144, 189, 250, 323, 420, 537, 695, 880, 1114, 1404, 1774, 2210, 2759, 3423, 4239, 5223, 6430, 7869, 9640, 11738, 14266, 17297, 20950, 25256, 30423, 36545, 43824, 52421, 62620, 74599, 88802, 105431
Offset: 0

Views

Author

Gus Wiseman, Oct 28 2023

Keywords

Examples

			The partition y = (6,4) has halved even parts (3,2) which are relatively prime, so y is counted under a(10).
The a(2) = 1 through a(9) = 15 partitions:
  (2)  (21)  (22)   (32)    (42)     (52)      (62)       (72)
             (211)  (221)   (222)    (322)     (332)      (432)
                    (2111)  (321)    (421)     (422)      (522)
                            (2211)   (2221)    (521)      (621)
                            (21111)  (3211)    (2222)     (3222)
                                     (22111)   (3221)     (3321)
                                     (211111)  (4211)     (4221)
                                               (22211)    (5211)
                                               (32111)    (22221)
                                               (221111)   (32211)
                                               (2111111)  (42111)
                                                          (222111)
                                                          (321111)
                                                          (2211111)
                                                          (21111111)
		

Crossrefs

For all parts we have A000837, complement A018783.
These partitions have ranks A366847.
For odd parts we have A366850, ranks A366846, complement A366842.
A000041 counts integer partitions, strict A000009, complement A047967.
A035363 counts partitions into all even parts, ranks A066207.
A078374 counts relatively prime strict partitions.
A168532 counts partitions by gcd.
A239261 counts partitions with (sum of odd parts) = (sum of even parts).
A366531 = 2*A366533 adds up even prime indices, triangle A113686/A174713.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], GCD@@Select[#,EvenQ]/2==1&]],{n,0,30}]

A366848 Odd numbers whose odd prime indices are relatively prime.

Original entry on oeis.org

55, 85, 155, 165, 187, 205, 253, 255, 275, 295, 335, 341, 385, 391, 415, 425, 451, 465, 485, 495, 527, 545, 561, 595, 605, 615, 635, 649, 697, 713, 715, 737, 745, 759, 765, 775, 785, 799, 803, 825, 885, 895, 913, 935, 943, 955, 1003, 1005, 1023, 1025, 1045
Offset: 1

Views

Author

Gus Wiseman, Nov 01 2023

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 odd prime indices of 345 are {3,9}, which are not relatively prime, so 345 is not in the sequence.
The odd prime indices of 825 are {3,3,5}, which are relatively prime, so 825 is in the sequence
The terms together with their prime indices begin:
    55: {3,5}
    85: {3,7}
   155: {3,11}
   165: {2,3,5}
   187: {5,7}
   205: {3,13}
   253: {5,9}
   255: {2,3,7}
   275: {3,3,5}
   295: {3,17}
   335: {3,19}
   341: {5,11}
   385: {3,4,5}
   391: {7,9}
   415: {3,23}
   425: {3,3,7}
   451: {5,13}
   465: {2,3,11}
   485: {3,25}
   495: {2,2,3,5}
		

Crossrefs

Including even terms and prime indices gives A289509, ones of A289508, counted by A000837.
Including even prime indices gives A302697, counted by A302698.
Including even terms gives A366846, counted by A366850.
For halved even instead of odd prime indices we have A366849.
A000041 counts integer partitions, strict A000009 (also into odds).
A066208 lists numbers with all odd prime indices, even A066207.
A112798 lists prime indices, length A001222, sum A056239.
A257991 counts odd prime indices, even A257992.
A366528 adds up odd prime indices, partition triangle A113685.
A366531 = 2*A366533 adds up even prime indices, triangle A113686/A174713.

Programs

  • Mathematica
    Select[Range[1000], OddQ[#]&&GCD@@Select[PrimePi/@First/@FactorInteger[#], OddQ]==1&]

A174712 Triangle T(n,k) read by rows in which the right border is A000041, else zero, n >= 0.

Original entry on oeis.org

1, 0, 1, 0, 0, 2, 0, 0, 0, 3, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0, 11, 0, 0, 0, 0, 0, 0, 0, 15, 0, 0, 0, 0, 0, 0, 0, 0, 22, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 42, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 56, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 77
Offset: 0

Views

Author

Gary W. Adamson, Mar 27 2010

Keywords

Comments

Eigensequence of the triangle = A058694: (1, 1, 2, 6, 30, 210,...), i.e., given A058694 preceded by a "1", triangle A174712 * the latter variant = the same sequence but shifted left.

Examples

			Triangle begins:
  1;
  0, 1;
  0, 0, 2;
  0, 0, 0, 3;
  0, 0, 0, 0, 5;
  0, 0, 0, 0, 0, 7;
  0, 0, 0, 0, 0, 0, 11;
  0, 0, 0, 0, 0, 0, 0, 15;
  0, 0, 0, 0, 0, 0, 0, 0, 22;
  0, 0, 0, 0, 0, 0, 0, 0, 0, 30;
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 42;
  ...
		

Crossrefs

Programs

  • Mathematica
    Array[PadLeft[{PartitionsP[#-1]}, #] &, 15] (* Paolo Xausa, Feb 21 2024 *)

Extensions

Definition clarified by Omar E. Pol, Feb 21 2024

A174714 Triangle read by rows, Q*M; Q = an infinite lower triangular matrix with A000726 shifted down thrice, M = triangle A174712, the diagonalized variant of A000041.

Original entry on oeis.org

1, 1, 2, 2, 1, 4, 1, 5, 2, 7, 2, 2, 9, 4, 2, 13, 5, 4, 16, 7, 4, 3, 22, 9, 8, 3, 27, 13, 10, 6, 36, 16, 14, 6, 5, 44, 22, 18, 12, 5, 57, 27, 26, 15, 10
Offset: 0

Views

Author

Gary W. Adamson, Mar 27 2010

Keywords

Comments

Refer to comments in A174713.
Row sums = A000041, the partition numbers.

Examples

			First few rows of the triangle =
1;
1;
2;
2, 1;
4, 1;
5, 2;
7, 2, 2;
9, 4, 2;
13, 5, 4;
16, 7, 4, 3;
22, 9, 8, 3;
27, 13, 10, 6;
36, 16, 14, 6, 5;
44, 22, 18, 12, 5;
57, 27, 26, 15, 10;
...
		

Crossrefs

Formula

Let Q = an infinite lower triangular matrix with A000726, (Euler transform of [1,1,0,1,1,0,...]) in each column shifted down thrice from the (k-1)-th column, excepting column 0. Let M = triangle A174712, the diagonalized variant of A000041. Then triangle A174714 = Q*M.

A366846 Numbers whose odd prime indices are relatively prime.

Original entry on oeis.org

2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 55, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 85, 86, 88, 90, 92, 94, 96, 98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 118, 120, 122
Offset: 1

Views

Author

Gus Wiseman, Oct 29 2023

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 odd prime indices of 115 are {3,9}, and these are not relatively prime, so 115 is not in the sequence.
The odd prime indices of 825 are {3,3,5}, and these are relatively prime, so 825 is in the sequence.
		

Crossrefs

Including even indices gives A289509, ones of A289508, counted by A000837.
The complement when including even indices is A318978, counted by A018783.
The nonzero complement ranks the partitions counted by A366842.
The version for halved even indices is A366847.
The odd case is A366848.
The partitions with these Heinz numbers are counted by A366850.
A000041 counts integer partitions, strict A000009 (also into odds).
A112798 lists prime indices, length A001222, sum A056239.
A257992 counts even prime indices, odd A257991.
A366528 adds up odd prime indices, partition triangle A113685.
A366531 = 2*A366533 adds up even prime indices, triangle A113686/A174713.

Programs

  • Mathematica
    Select[Range[100], GCD@@Select[PrimePi/@First/@FactorInteger[#], OddQ]==1&]

A366849 Odd numbers whose halved even prime indices are relatively prime.

Original entry on oeis.org

3, 9, 15, 21, 27, 33, 39, 45, 51, 57, 63, 69, 75, 81, 87, 91, 93, 99, 105, 111, 117, 123, 129, 135, 141, 147, 153, 159, 165, 171, 177, 183, 189, 195, 201, 203, 207, 213, 219, 225, 231, 237, 243, 247, 249, 255, 261, 267, 273, 279, 285, 291, 297, 301, 303, 309
Offset: 1

Views

Author

Gus Wiseman, Nov 01 2023

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 even prime indices of 91 are {4,6}, halved {2,3}, which are relatively prime, so 91 is in the sequence.
The prime indices of 665 are {3,4,8}, even {4,8}, halved {2,4}, which are not relatively prime, so 665 is not in the sequence.
The terms together with their prime indices begin:
   3: {2}
   9: {2,2}
  15: {2,3}
  21: {2,4}
  27: {2,2,2}
  33: {2,5}
  39: {2,6}
  45: {2,2,3}
  51: {2,7}
  57: {2,8}
  63: {2,2,4}
  69: {2,9}
  75: {2,3,3}
  81: {2,2,2,2}
  87: {2,10}
  91: {4,6}
  93: {2,11}
  99: {2,2,5}
		

Crossrefs

For odd instead of halved even prime indices we have A366848.
A version for odd indices A366846, counted by A366850.
This is the odd restriction of A366847, counted by A366845.
A000041 counts integer partitions, strict A000009 (also into odds).
A035363 counts partitions into all even parts, ranks A066207.
A112798 lists prime indices, length A001222, sum A056239.
A162641 counts even prime exponents, odd A162642.
A257992 counts even prime indices, odd A257991.
A289509 lists numbers with relatively prime prime indices, ones of A289508, counted by A000837.
A366528 adds up odd prime indices, partition triangle A113685.
A366531 = 2*A366533 adds up even prime indices, triangle A113686/A174713.

Programs

  • Mathematica
    Select[Range[100], OddQ[#]&&GCD@@Select[PrimePi/@First/@FactorInteger[#], EvenQ]==2&]
Showing 1-10 of 14 results. Next