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.

Previous Showing 31-34 of 34 results.

A359397 Squarefree numbers with weakly decreasing first differences of 0-prepended prime indices.

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 11, 13, 15, 17, 19, 21, 23, 29, 30, 31, 35, 37, 41, 43, 47, 53, 55, 59, 61, 65, 67, 71, 73, 77, 79, 83, 89, 91, 97, 101, 103, 105, 107, 109, 113, 119, 127, 131, 133, 137, 139, 143, 149, 151, 157, 163, 167, 173, 179, 181, 187, 191, 193, 197
Offset: 1

Views

Author

Gus Wiseman, Dec 31 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

			715 has prime indices {3,5,6}, with first differences (2,1), which are weakly decreasing, so 715 is in the sequence.

Crossrefs

This is the squarefree case of A325362.
These are the sorted Heinz numbers of rows of A359361.
A005117 lists squarefree numbers.
A112798 lists prime indices, length A001222, sum A056239, reverse A296150.
A355536 lists first differences of prime indices, 0-prepended A287352.
A358136 lists partial sums of prime indices, row sums A318283.
Cf. A000009, A000720, A001221, A253566, A261079, A304818, A358137, A358169.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],SquareFreeQ[#]&&GreaterEqual@@Differences[Prepend[primeMS[#],0]]&]

Formula

Intersection of A325362 and A005117.

A363525 Number of integer partitions of n with weighted sum divisible by reverse-weighted sum.

Original entry on oeis.org

1, 2, 2, 3, 2, 4, 2, 4, 5, 5, 3, 10, 4, 7, 13, 10, 8, 29, 10, 18, 39, 20, 20, 70, 29, 40, 105, 65, 55, 166, 73, 132, 242, 141, 129, 476, 183, 248, 580, 487, 312, 984, 422, 868, 1345, 825, 724, 2709, 949, 1505, 2756, 2902, 1611, 4664, 2289, 4942, 5828, 4278
Offset: 1

Views

Author

Gus Wiseman, Jun 10 2023

Keywords

Comments

The (one-based) weighted sum of a sequence (y_1,...,y_k) is Sum_{i=1..k} i*y_i. This is also the sum of partial sums of the reverse.

Examples

			The partition (6,5,4,3,2,1,1,1,1) has weighted sum 80, reverse 160, so is counted under a(24).
The a(n) partitions for n = 1, 2, 4, 6, 9, 12, 14 (A..E = 10-14):
  1  2   4     6       9          C             E
     11  22    33      333        66            77
         1111  222     711        444           65111
               111111  6111       921           73211
                       111111111  3333          2222222
                                  7311          71111111
                                  63111         11111111111111
                                  222222
                                  621111
                                  111111111111

Crossrefs

The case of equality (and reciprocal version) is A000005.
The strict case is A363528.
A000041 counts integer partitions, strict A000009.
A053632 counts compositions by weighted sum, rank statistic A029931/A359042.
A264034 counts partitions by weighted sum, reverse A358194.
A304818 gives weighted sum of prime indices, row-sums of A359361.
A318283 gives weighted sum of reversed prime indices, row-sums of A358136.
A320387 counts multisets by weighted sum, zero-based A359678.
A363526 = partitions with weighted sum 3n, ranks A363530, reverse A363531.
Cf. A000016, A008284, A067538, A222855, A222970, A358137, A359755, A362558, A362559, A362560, A363527.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], Divisible[Total[Accumulate[#]], Total[Accumulate[Reverse[#]]]]&]],{n,30}]

A363528 Number of strict integer partitions of n with weighted sum divisible by reverse-weighted sum.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 3, 1, 1, 3, 1, 2, 6, 2, 3, 9, 3, 4, 11, 4, 5, 16, 6, 8, 24, 8, 10, 31, 11, 14, 41, 18, 18, 59, 21, 27, 74, 30, 32, 100, 35, 43, 128, 54, 53, 173, 58, 78, 215, 81, 88, 294, 97, 123, 362, 150, 146, 469, 162, 221, 577
Offset: 1

Views

Author

Gus Wiseman, Jun 10 2023

Keywords

Comments

The (one-based) weighted sum of a sequence (y_1,...,y_k) is Sum_{i=1..k} i*y_i. This is also the sum of partial sums of the reverse.

Examples

			The a(n) partitions for n = 1, 12, 15, 21, 24, 26:
  (1)  (12)     (15)       (21)          (24)          (26)
       (9,2,1)  (11,3,1)   (15,5,1)      (17,6,1)      (11,8,4,2,1)
                (9,3,2,1)  (16,3,2)      (18,4,2)      (12,6,5,2,1)
                           (11,7,2,1)    (12,9,2,1)    (13,5,4,3,1)
                           (12,5,3,1)    (13,7,3,1)
                           (10,5,3,2,1)  (14,5,4,1)
                                         (15,4,3,2)
                                         (10,8,3,2,1)
                                         (11,6,4,2,1)

Crossrefs

The non-strict version is A363525.
A000041 counts integer partitions, strict A000009.
A264034 counts partitions by weighted sum, reverse A358194.
A304818 gives weighted sum of prime indices, row-sums of A359361.
A318283 gives weighted sum of reversed prime indices, row-sums of A358136.
A320387 counts multisets by weighted sum, zero-based A359678.
A363526 counts partitions with weighted sum 3n, reverse A363531.
Cf. A008284, A053632, A067538, A222855, A222970, A358137, A359754, A359755, A362558, A362559, A362560.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&Divisible[Total[Accumulate[#]],Total[Accumulate[Reverse[#]]]]&]],{n,30}]

A359757 Greatest positive integer whose weakly increasing prime indices have zero-based weighted sum (A359674) equal to n.

Original entry on oeis.org

4, 9, 25, 49, 121, 169, 289, 361, 529, 841, 961, 1369, 1681, 1849, 2209, 2809, 3481, 3721, 4489, 5041, 5329, 6241, 6889, 7921, 9409, 10201, 12167, 11449, 15341, 24389, 16399, 26071, 29791, 31117, 35557, 50653, 39401, 56129, 68921, 58867, 72283, 83521, 79007, 86903, 103823
Offset: 1

Views

Author

Gus Wiseman, Jan 16 2023

Keywords

Comments

Appears to first differ from A001248 at a(27) = 12167, A001248(27) = 10609.
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.
The zero-based weighted sum of a sequence (y_1,...,y_k) is Sum_{i=1..k} (i-1)*y_i.

Examples

			The terms together with their prime indices begin:
    4: {1,1}
    9: {2,2}
   25: {3,3}
   49: {4,4}
  121: {5,5}
  169: {6,6}
  289: {7,7}
  361: {8,8}
  529: {9,9}
  841: {10,10}

Links

Crossrefs

The one-based version is A359497, minimum A359682 (sorted A359755).
Last position of n in A359674, reverse A359677.
The minimum instead of maximum is A359676, sorted A359675, reverse A359681.
A053632 counts compositions by zero-based weighted sum.
A112798 lists prime indices, length A001222, sum A056239, reverse A296150.
A124757 = zero-based weighted sum of standard compositions, reverse A231204.
A304818 gives weighted sums of prime indices, reverse A318283.
A320387 counts multisets by weighted sum, zero-based A359678.
A358136 = partial sums of prime indices, ranked by A358137, reverse A359361.
Cf. A001248, A029931, A055932, A089633, A243055, A358194, A359679, A359680, A359683, A359754.

Programs

  • Mathematica
    nn=10;
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
wts[y_]:=Sum[(i-1)*y[[i]],{i,Length[y]}];
seq=Table[wts[prix[n]],{n,2^nn}];
Table[Position[seq,k][[-1,1]],{k,nn}]
  • PARI
    a(n)={ my(recurse(r, k, m) = if(k==1, if(m>=r, prime(r)^2),
    my(z=0); for(j=1, min(m, (r-k*(k-1)/2)\k), z=max(z, self()(r-k*j, k-1, j)*prime(j))); z));
  vecmax(vector((sqrtint(8*n+1)-1)\2, k, recurse(n,k,n)));
} \\ Andrew Howroyd, Jan 21 2023

Extensions

Terms a(21) and beyond from Andrew Howroyd, Jan 21 2023
Previous Showing 31-34 of 34 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.