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-40 of 42 results. Next

A383534 Irregular triangle read by rows where row n lists the positive first differences of the 0-prepended prime indices of n.

Original entry on oeis.org

1, 2, 1, 3, 1, 1, 4, 1, 2, 1, 2, 5, 1, 1, 6, 1, 3, 2, 1, 1, 7, 1, 1, 8, 1, 2, 2, 2, 1, 4, 9, 1, 1, 3, 1, 5, 2, 1, 3, 10, 1, 1, 1, 11, 1, 2, 3, 1, 6, 3, 1, 1, 1, 12, 1, 7, 2, 4, 1, 2, 13, 1, 1, 2, 14, 1, 4, 2, 1, 1, 8, 15, 1, 1, 4, 1, 2, 2, 5, 1, 5, 16, 1, 1, 3, 2
Offset: 1

Views

Author

Gus Wiseman, May 20 2025

Keywords

Comments

Also differences of distinct 0-prepended prime indices of n.

Examples

			The prime indices of 140 are {1,1,3,4}, zero prepended {0,1,1,3,4}, differences (1,0,2,1), positive (1,2,1).
Rows begin:
    1: ()        16: (1)        31: (11)
    2: (1)       17: (7)        32: (1)
    3: (2)       18: (1,1)      33: (2,3)
    4: (1)       19: (8)        34: (1,6)
    5: (3)       20: (1,2)      35: (3,1)
    6: (1,1)     21: (2,2)      36: (1,1)
    7: (4)       22: (1,4)      37: (12)
    8: (1)       23: (9)        38: (1,7)
    9: (2)       24: (1,1)      39: (2,4)
   10: (1,2)     25: (3)        40: (1,2)
   11: (5)       26: (1,5)      41: (13)
   12: (1,1)     27: (2)        42: (1,1,2)
   13: (6)       28: (1,3)      43: (14)
   14: (1,3)     29: (10)       44: (1,4)
   15: (2,1)     30: (1,1,1)    45: (2,1)
		

Crossrefs

Row-lengths are A001221, sums A061395.
Rows start with A055396, end with A241919.
For multiplicities instead of differences we have A124010 (prime signature).
Including difference 0 gives A287352, without prepending A355536.
Positions of first appearances of rows are A358137.
Positions of strict rows are A383512, counted by A098859.
Positions of non-strict rows are A383513, counted by A336866.
Heinz numbers of rows are A383535.
Restricting to rows of squarefree index gives A384008.
Without prepending we get A384009.
A000040 lists the primes, differences A001223.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A320348 counts strict partitions with distinct 0-appended differences, ranks A325388.
A325324 counts partitions with distinct 0-appended differences, ranks A325367.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Table[DeleteCases[Differences[Prepend[prix[n],0]],0],{n,100}]

Formula

a(A005117(n)) = A384008(n).

A320510 Number of partitions of n such that the successive differences of consecutive parts are decreasing, and first difference < first part.

Original entry on oeis.org

1, 1, 2, 1, 2, 2, 2, 2, 4, 2, 3, 4, 3, 4, 6, 3, 5, 6, 5, 6, 9, 5, 7, 9, 8, 8, 11, 8, 11, 13, 10, 12, 15, 11, 15, 16, 14, 16, 21, 15, 20, 22, 18, 21, 26, 21, 24, 28, 25, 28, 33, 26, 32, 34, 33, 36, 40, 34, 40, 45, 40, 43, 49, 43, 52, 54, 49, 54, 62, 56, 62, 64, 61, 67, 75, 66
Offset: 0

Views

Author

Seiichi Manyama, Oct 14 2018

Keywords

Comments

Partitions are usually written with parts in descending order, but the conditions are easier to check visually if written in ascending order.
The differences of a sequence are defined as if the sequence were increasing, so for example the differences of (6,3,1) (with the last part taken to be 0) are (-3,-2,-1). Then a(n) is the number of integer partitions of n whose differences (with the last part taken to be 0) are strictly decreasing. The Heinz numbers of these partitions are given by A325461. Of course, the number of such integer partitions of n is also the number of reversed integer partitions of n whose differences are strictly decreasing, which is the author's interpretation. - Gus Wiseman, May 04 2019

Examples

			There are a(29) = 13 such partitions of 29:
01: [29]
02: [10, 19]
03: [11, 18]
04: [12, 17]
05: [13, 16]
06: [14, 15]
07: [6, 10, 13]
08: [6, 11, 12]
09: [7, 10, 12]
10: [7, 11, 11]
11: [8, 10, 11]
12: [9, 10, 10]
13: [4, 7, 9, 9]
There are a(30) = 10 such partitions of 30:
01: [30]
02: [11, 19]
03: [12, 18]
04: [13, 17]
05: [14, 16]
06: [15, 15]
07: [6, 11, 13]
08: [7, 11, 12]
09: [8, 11, 11]
10: [4, 7, 9, 10]
		

Crossrefs

Cf. A320385 (distinct parts, decreasing, and first difference < first part).

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Greater@@Differences[Append[#,0]]&]],{n,0,30}] (* Gus Wiseman, May 04 2019 *)
  • Ruby
    def partition(n, min, max)
      return [[]] if n == 0
      [max, n].min.downto(min).flat_map{|i| partition(n - i, min, i).map{|rest| [i, *rest]}}
    end
    def f(n)
      return 1 if n == 0
      cnt = 0
      partition(n, 1, n).each{|ary|
        ary << 0
        ary0 = (1..ary.size - 1).map{|i| ary[i - 1] - ary[i]}
        cnt += 1 if ary0.sort == ary0 && ary0.uniq == ary0
      }
      cnt
    end
    def A320510(n)
      (0..n).map{|i| f(i)}
    end
    p A320510(50)

A325553 Number of compositions of n with distinct circular differences up to sign.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 7, 21, 31, 41, 87, 99, 191, 245, 381, 501, 735, 883, 1309, 1841, 2589, 3435, 4941, 6857, 9791, 13503, 19475, 27073, 37175, 52299, 72249, 100359, 139317, 190549, 256769, 355193, 471963, 644433, 858793, 1159161, 1530879, 2056073, 2711921
Offset: 0

Views

Author

Gus Wiseman, May 11 2019

Keywords

Comments

A composition of n is a finite sequence of positive integers summing to n.
The circular differences of a composition c of length k are c_{i + 1} - c_i for i < k and c_1 - c_i for i = k. For example, the circular differences of (1,2,1,3) are (1,-1,2,-2).

Examples

			The a(1) = 1 through a(8) = 21 compositions:
  (1)  (2)  (3)  (4)  (5)  (6)  (7)    (8)
                                (124)  (125)
                                (142)  (134)
                                (214)  (143)
                                (241)  (152)
                                (412)  (215)
                                (421)  (251)
                                       (314)
                                       (341)
                                       (413)
                                       (431)
                                       (512)
                                       (521)
                                       (1124)
                                       (1142)
                                       (1241)
                                       (1421)
                                       (2114)
                                       (2411)
                                       (4112)
                                       (4211)
		

Crossrefs

Programs

  • Mathematica
    Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],UnsameQ@@Abs[Differences[Append[#,First[#]]]]&]],{n,20}]

Extensions

a(0) and a(26)-a(43) from Alois P. Heinz, Jan 28 2024

A383507 Number of Wilf and conjugate Wilf integer partitions of n.

Original entry on oeis.org

1, 1, 2, 2, 3, 3, 6, 7, 9, 12, 14, 19, 20, 27, 30, 31, 40, 50, 56, 68, 76, 86, 112, 126, 139, 170, 197, 216, 251, 297, 317, 378, 411, 466, 521, 607, 621, 745, 791, 892, 975, 1123, 1163, 1366, 1439, 1635, 1757, 2021, 2080, 2464, 2599, 2882, 3116, 3572, 3713
Offset: 0

Views

Author

Gus Wiseman, May 14 2025

Keywords

Comments

An integer partition is Wilf iff its multiplicities are all different (ranked by A130091). It is conjugate Wilf iff its nonzero 0-appended differences are all different (ranked by A383512).

Examples

			The a(1) = 1 through a(8) = 9 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (311)    (33)      (322)      (44)
                    (1111)  (11111)  (222)     (331)      (332)
                                     (411)     (511)      (611)
                                     (3111)    (4111)     (2222)
                                     (111111)  (31111)    (5111)
                                               (1111111)  (41111)
                                                          (311111)
                                                          (11111111)
		

Crossrefs

A048768 gives Look-and-Say fixed points, counted by A217605.
A098859 counts Wilf partitions, ranks A130091, conjugate A383512.
A239455 counts Look-and-Say partitions, complement A351293.
A325349 counts partitions with distinct augmented differences, ranks A325366.
A336866 counts non Wilf partitions, ranks A130092, conjugate A383513.
A381431 is the section-sum transform, union A381432, complement A381433.
A383534 gives 0-prepended differences by rank, see A325351.
A383709 counts Wilf partitions with distinct 0-appended differences.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],UnsameQ@@Length/@Split[#] && UnsameQ@@DeleteCases[Differences[Append[#,0]],0]&]],{n,0,30}]

Formula

These partitions have Heinz numbers A130091 /\ A383512.

A383519 Number of section-sum partitions of n that have all distinct multiplicities (Wilf).

Original entry on oeis.org

1, 1, 2, 2, 3, 3, 6, 7, 9, 12, 14, 19, 21, 27, 30, 33, 41, 50, 57, 68, 79, 89, 112, 126, 144, 172, 198, 220, 257, 298, 327, 383, 423, 477, 533, 621, 650, 760, 816, 920, 1013
Offset: 0

Views

Author

Gus Wiseman, May 19 2025

Keywords

Comments

An integer partition is section-sum iff it is possible to choose a disjoint family of strict partitions, one of each of its positive 0-appended differences. These are ranked by A381432.
An integer partition is Wilf iff its multiplicities are all different (ranked by A130091).

Examples

			The a(1) = 1 through a(8) = 9 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (311)    (33)      (322)      (44)
                    (1111)  (11111)  (222)     (331)      (332)
                                     (411)     (511)      (611)
                                     (3111)    (4111)     (2222)
                                     (111111)  (31111)    (5111)
                                               (1111111)  (41111)
                                                          (311111)
                                                          (11111111)
		

Crossrefs

Ranking sequences are shown in parentheses below.
For Look-and-Say instead of section-sum we have A098859 (A130091), conjugate (A383512).
For non Wilf instead of Wilf we have A383506 (A383514).
These partitions are ranked by (A383520).
A000041 counts integer partitions, strict A000009.
A098859 counts Wilf partitions (A130091), conjugate (A383512).
A239455 counts Look-and-Say partitions (A351294), complement A351293 (A351295).
A239455 counts section-sum partitions (A381432), complement A351293 (A381433).
A336866 counts non Wilf partitions (A130092), conjugate (A383513).

Programs

  • Mathematica
    disjointFamilies[y_]:=Select[Tuples[IntegerPartitions/@Length/@Split[y]],UnsameQ@@Join@@#&];
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
    Table[Length[Select[IntegerPartitions[n],disjointFamilies[conj[#]]!={}&&UnsameQ@@Length/@Split[#]&]],{n,0,15}]

A384891 Number of permutations of {1..n} with all distinct lengths of maximal runs (increasing by 1).

Original entry on oeis.org

1, 1, 1, 3, 3, 5, 23, 25, 43, 63, 345, 365, 665, 949, 1513, 8175, 9003, 15929, 23399, 36949, 51043, 293715, 314697, 570353, 826817, 1318201, 1810393, 2766099, 14180139, 15600413, 27707879, 40501321, 63981955, 88599903, 134362569, 181491125, 923029217
Offset: 0

Views

Author

Gus Wiseman, Jun 19 2025

Keywords

Examples

			The permutation (1,2,6,7,8,9,3,4,5) has maximal runs ((1,2),(6,7,8,9),(3,4,5)), with lengths (2,4,3), so is counted under a(9).
The a(0) = 1 through a(7) = 25 permutations:
  ()  (1)  (12)  (123)  (1234)  (12345)  (123456)  (1234567)
                 (231)  (2341)  (23451)  (123564)  (1234675)
                 (312)  (4123)  (34512)  (123645)  (1234756)
                                (45123)  (124563)  (1245673)
                                (51234)  (126345)  (1273456)
                                         (145623)  (1456723)
                                         (156234)  (1672345)
                                         (231456)  (2314567)
                                         (234156)  (2345167)
                                         (234561)  (2345671)
                                         (312456)  (3124567)
                                         (345126)  (3456127)
                                         (345612)  (3456712)
                                         (412356)  (4567123)
                                         (451236)  (4567231)
                                         (456231)  (4567312)
                                         (456312)  (5123467)
                                         (561234)  (5612347)
                                         (562341)  (5671234)
                                         (564123)  (6712345)
                                         (612345)  (6723451)
                                         (634512)  (6751234)
                                         (645123)  (7123456)
                                                   (7345612)
                                                   (7561234)
		

Crossrefs

Counting by number of maximal anti-runs gives A010027, for runs A123513.
For subsets instead of permutations we have A384175, complement A384176.
For partitions we have A384884 (anti-runs A384885), strict A384178 (anti-runs A384880).
For equal instead of distinct lengths we have A384892.
For anti-runs instead of runs we have A384907.
A000041 counts integer partitions, strict A000009.
A034839 counts subsets by number of maximal runs, for strict partitions A116674.
A098859 counts Wilf partitions (distinct multiplicities), complement A336866.
A356606 counts strict partitions without a neighborless part, complement A356607.
A384893 counts subsets by number of maximal anti-runs, for partitions A268193, A384905.

Programs

  • Mathematica
    Table[Length[Select[Permutations[Range[n]],UnsameQ@@Length/@Split[#,#2==#1+1&]&]],{n,0,10}]
  • PARI
    lista(n)=my(b(n)=sum(i=0,n-1,(-1)^i*(n-i)!*binomial(n-1,i)), d=floor(sqrt(2*n)), p=prod(i=1,n,1+x*y^i,1+O(y*y^n)*((1-x^(n+1))/(1-x))+O(x*x^d))); Vec(1+sum(i=1,d,i!*b(i)*polcoef(p,i))) \\ Christian Sievers, Jun 22 2025

Formula

a(n) = Sum_{k=1..n} ( T(n,k) * A000255(k-1) ) for n>=1, where T(n,k) is the number of compositions of n into k distinct parts (cf. A072574). - Christian Sievers, Jun 22 2025

Extensions

a(11) and beyond from Christian Sievers, Jun 22 2025

A383712 Heinz numbers of integer partitions with distinct multiplicities (Wilf) and distinct 0-appended differences.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 9, 11, 13, 17, 19, 20, 23, 25, 28, 29, 31, 37, 41, 43, 44, 45, 47, 49, 50, 52, 53, 59, 61, 67, 68, 71, 73, 75, 76, 79, 83, 89, 92, 97, 98, 99, 101, 103, 107, 109, 113, 116, 117, 121, 124, 127, 131, 137, 139, 148, 149, 151, 153, 157, 163, 164
Offset: 1

Views

Author

Gus Wiseman, May 15 2025

Keywords

Comments

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
Integer partitions with distinct multiplicities are called Wilf partitions.

Examples

			The terms together with their prime indices begin:
    1: {}
    2: {1}
    3: {2}
    4: {1,1}
    5: {3}
    7: {4}
    9: {2,2}
   11: {5}
   13: {6}
   17: {7}
   19: {8}
   20: {1,1,3}
   23: {9}
   25: {3,3}
   28: {1,1,4}
   29: {10}
   31: {11}
   37: {12}
   41: {13}
   43: {14}
   44: {1,1,5}
   45: {2,2,3}
   47: {15}
   49: {4,4}
   50: {1,3,3}
		

Crossrefs

For just distinct multiplicities we have A130091 (conjugate A383512), counted by A098859.
For just distinct 0-appended differences we have A325367, counted by A325324.
These partitions are counted by A383709.
A000040 lists the primes, differences A001223.
A048767 is the Look-and-Say transform, union A351294, complement A351295.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A122111 represents conjugation in terms of Heinz numbers.
A239455 counts Look-and-Say partitions, complement A351293.
A336866 counts non Wilf partitions, ranks A130092, conjugate A383513.
A383507 counts partitions that are Wilf and conjugate Wilf, ranks A383532.
A383530 counts partitions that are not Wilf or conjugate-Wilf, ranks A383531.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
    Select[Range[100],UnsameQ@@Length/@Split[prix[#]] && UnsameQ@@Differences[Append[Reverse[prix[#]],0]]&]

Formula

Equals A130091 /\ A325367.

A325466 Triangle read by rows where T(n,k) is the number of reversed integer partitions of n with k distinct differences of any degree > 0.

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 1, 2, 0, 0, 1, 3, 1, 0, 0, 1, 3, 2, 1, 0, 0, 1, 5, 4, 0, 1, 0, 0, 1, 4, 6, 3, 0, 1, 0, 0, 1, 6, 6, 4, 3, 1, 1, 0, 0, 1, 6, 10, 4, 2, 4, 1, 2, 0, 0, 1, 7, 12, 8, 3, 3, 4, 1, 2, 1, 0, 1, 6, 13, 11, 2, 11, 3, 4, 0, 3, 1, 1, 1, 10, 16, 7, 10, 10
Offset: 0

Views

Author

Gus Wiseman, May 04 2019

Keywords

Comments

The differences of a sequence are defined as if the sequence were increasing, so for example the differences of (6,3,1) are (-3,-2).
The zeroth differences of a sequence are the sequence itself, while the k-th differences for k > 0 are the differences of the (k-1)-th differences.

Examples

			Triangle begins:
  1
  1  0
  1  1  0
  1  2  0  0
  1  3  1  0  0
  1  3  2  1  0  0
  1  5  4  0  1  0  0
  1  4  6  3  0  1  0  0
  1  6  6  4  3  1  1  0  0
  1  6 10  4  2  4  1  2  0  0
  1  7 12  8  3  3  4  1  2  1  0
  1  6 13 11  2 11  3  4  0  3  1  1
  1 10 16  7 10 10  6  6  5  1  1  2  1
  1  7 18 14  7 16 11  6  4  8  0  5  0  1
  1  9 20 18 10 20 13 10 10  4  5  5  2  2  2
  1 10 26 18 10 24 13 19 13 10  6  6  2  8  1  2
  1 11 25 24 16 28 19 24 14 15  9 10  9  5  2  7  1
Row 7 counts the following reversed partitions (empty columns not shown):
  (7)  (16)       (115)     (133)   (11122)
       (25)       (124)     (1123)
       (34)       (223)     (1222)
       (1111111)  (1114)
                  (11113)
                  (111112)
Row 9 counts the following reversed partitions (empty columns not shown):
(9)  (18)         (117)       (126)    (1125)   (1134)    (11223)  (111222)
     (27)         (135)       (144)    (11124)  (1224)             (1111122)
     (36)         (225)       (1233)            (11133)
     (45)         (234)       (12222)           (111123)
     (333)        (1116)
     (111111111)  (2223)
                  (11115)
                  (111114)
                  (1111113)
                  (11111112)
		

Crossrefs

Row sums are A000041. Column k = 1 is A088922.

Programs

  • Mathematica
    Table[Length[Select[Reverse/@IntegerPartitions[n],Length[Union@@Table[Differences[#,i],{i,1,Length[#]}]]==k&]],{n,0,16},{k,0,n}]

A325556 Number of necklace compositions of n with distinct circular differences up to sign.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 3, 7, 9, 13, 25, 27, 51, 63, 95, 123, 179, 205, 305, 409, 559, 715, 1009, 1337, 1869
Offset: 1

Views

Author

Gus Wiseman, May 11 2019

Keywords

Comments

A necklace composition of n is a finite sequence of positive integers summing to n that is lexicographically minimal among all of its cyclic rotations.
The circular differences of a composition c of length k are c_{i + 1} - c_i for i < k and c_1 - c_i for i = k. For example, the circular differences of (1,2,1,3) are (1,-1,2,-2).

Examples

			The a(1) = 1 through a(10) = 13 necklace compositions:
  (1)  (2)  (3)  (4)  (5)  (6)  (7)    (8)     (9)     (A)
                                (124)  (125)   (126)   (127)
                                (142)  (134)   (162)   (136)
                                       (143)   (1125)  (145)
                                       (152)   (1134)  (154)
                                       (1124)  (1143)  (163)
                                       (1142)  (1152)  (172)
                                               (1224)  (235)
                                               (1422)  (253)
                                                       (1126)
                                                       (1162)
                                                       (1225)
                                                       (1522)
		

Crossrefs

Programs

  • Mathematica
    neckQ[q_]:=Array[OrderedQ[{q,RotateRight[q,#]}]&,Length[q]-1,1,And];
    Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],UnsameQ@@Abs[Differences[Append[#,First[#]]]]&&neckQ[#]&]],{n,15}]

A383535 Heinz number of the positive first differences of the 0-prepended prime indices of n.

Original entry on oeis.org

1, 2, 3, 2, 5, 4, 7, 2, 3, 6, 11, 4, 13, 10, 6, 2, 17, 4, 19, 6, 9, 14, 23, 4, 5, 22, 3, 10, 29, 8, 31, 2, 15, 26, 10, 4, 37, 34, 21, 6, 41, 12, 43, 14, 6, 38, 47, 4, 7, 6, 33, 22, 53, 4, 15, 10, 39, 46, 59, 8, 61, 58, 9, 2, 25, 20, 67, 26, 51, 12, 71, 4, 73
Offset: 1

Views

Author

Gus Wiseman, May 21 2025

Keywords

Comments

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
Also Heinz number of the first differences of the distinct 0-prepended prime indices of n.

Examples

			The terms together with their prime indices begin:
     1: {}        2: {1}        31: {11}       38: {1,8}
     2: {1}      17: {7}         2: {1}        47: {15}
     3: {2}       4: {1,1}      15: {2,3}       4: {1,1}
     2: {1}      19: {8}        26: {1,6}       7: {4}
     5: {3}       6: {1,2}      10: {1,3}       6: {1,2}
     4: {1,1}     9: {2,2}       4: {1,1}      33: {2,5}
     7: {4}      14: {1,4}      37: {12}       22: {1,5}
     2: {1}      23: {9}        34: {1,7}      53: {16}
     3: {2}       4: {1,1}      21: {2,4}       4: {1,1}
     6: {1,2}     5: {3}         6: {1,2}      15: {2,3}
    11: {5}      22: {1,5}      41: {13}       10: {1,3}
     4: {1,1}     3: {2}        12: {1,1,2}    39: {2,6}
    13: {6}      10: {1,3}      43: {14}       46: {1,9}
    10: {1,3}    29: {10}       14: {1,4}      59: {17}
     6: {1,2}     8: {1,1,1}     6: {1,2}       8: {1,1,1}
		

Crossrefs

For multiplicities instead of differences we have A181819.
Positions of first appearances are A358137.
Positions of squarefree numbers are A383512, counted by A098859.
Positions of nonsquarefree numbers are A383513, counted by A336866.
These are Heinz numbers of rows of A383534.
A000040 lists the primes, differences A001223.
A048767 is the Look-and-Say transform, union A351294, complement A351295.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A320348 counts strict partitions with distinct 0-appended differences, ranks A325388.
A325324 counts partitions with distinct 0-appended differences, ranks A325367.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Table[Times@@Prime/@DeleteCases[Differences[Prepend[prix[n],0]],0],{n,100}]

Formula

A001222(a(n)) = A001221(n).
A056239(a(n)) = A061395(n).
A055396(a(n)) = A055396(n).
A061395(a(n)) = A241919(n).
Previous Showing 31-40 of 42 results. Next