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 11-20 of 22 results. Next

A355533 Irregular triangle read by rows where row n lists the differences between adjacent prime indices of n; if n is prime(k), then row n is just (k).

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Jul 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.
The version where zero is prepended to the prime indices before taking differences is A287352.
One could argue that row n = 1 is empty, but adding it changes only the offset, with no effect on the data.

Examples

			Triangle begins (showing n, prime indices, differences*):
   2:    (1)       1
   3:    (2)       2
   4:   (1,1)      0
   5:    (3)       3
   6:   (1,2)      1
   7:    (4)       4
   8:  (1,1,1)    0 0
   9:   (2,2)      0
  10:   (1,3)      2
  11:    (5)       5
  12:  (1,1,2)    0 1
  13:    (6)       6
  14:   (1,4)      3
  15:   (2,3)      1
  16: (1,1,1,1)  0 0 0
For example, the prime indices of 24 are (1,1,1,2), with differences (0,0,1).
		

Crossrefs

Crossrefs found in the link are not repeated here.
Row sums are A243056.
The version for prime indices prepended by 0 is A287352.
Constant rows have indices A325328.
Strict rows have indices A325368.
Number of distinct terms in each row are 1 if prime, otherwise A355523.
Row minima are A355525, augmented A355531.
Row maxima are A355526, augmented A355535.
The augmented version is A355534, Heinz number A325351.
The version with prime-indexed rows empty is A355536, Heinz number A325352.
A112798 lists prime indices, sum A056239.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Table[If[PrimeQ[n],{PrimePi[n]},Differences[primeMS[n]]],{n,2,30}]

Formula

Row lengths are 1 or A001222(n) - 1 depending on whether n is prime.

A325161 Nonprime squarefree numbers not divisible by any two consecutive primes.

Original entry on oeis.org

1, 10, 14, 21, 22, 26, 33, 34, 38, 39, 46, 51, 55, 57, 58, 62, 65, 69, 74, 82, 85, 86, 87, 91, 93, 94, 95, 106, 110, 111, 115, 118, 119, 122, 123, 129, 130, 133, 134, 141, 142, 145, 146, 155, 158, 159, 161, 166, 170, 177, 178, 182, 183, 185, 187, 190, 194, 201
Offset: 1

Views

Author

Gus Wiseman, Apr 05 2019

Keywords

Comments

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are Heinz numbers of non-singleton integer partitions into distinct non-consecutive parts (counted by A003114 minus 1).

Examples

			The sequence of terms together with their prime indices begins:
   1: {}
  10: {1,3}
  14: {1,4}
  21: {2,4}
  22: {1,5}
  26: {1,6}
  33: {2,5}
  34: {1,7}
  38: {1,8}
  39: {2,6}
  46: {1,9}
  51: {2,7}
  55: {3,5}
  57: {2,8}
  58: {1,10}
  62: {1,11}
  65: {3,6}
  69: {2,9}
  74: {1,12}
  82: {1,13}
		

Crossrefs

Programs

  • Mathematica
    Select[Range[100],!PrimeQ[#]&&Min@@Differences[Flatten[Cases[FactorInteger[#],{p_,k_}:>Table[PrimePi[p],{k}]]]]>1&]

A350840 Number of strict integer partitions of n with no adjacent parts of quotient 2.

Original entry on oeis.org

1, 1, 1, 1, 2, 3, 2, 4, 5, 6, 7, 8, 10, 13, 17, 19, 22, 25, 30, 35, 43, 52, 60, 70, 81, 93, 106, 122, 142, 166, 190, 216, 249, 287, 325, 371, 420, 479, 543, 617, 695, 784, 888, 1000, 1126, 1266, 1420, 1594, 1792, 2008, 2247, 2514, 2809, 3135, 3496, 3891, 4332
Offset: 0

Views

Author

Gus Wiseman, Jan 20 2022

Keywords

Examples

			The a(1) = 1 through a(13) = 13 partitions (A..D = 10..13):
  1   2   3   4    5    6    7    8     9     A     B     C     D
              31   32   51   43   53    54    64    65    75    76
                   41        52   62    72    73    74    93    85
                             61   71    81    82    83    A2    94
                                  431   432   91    92    B1    A3
                                        531   532   A1    543   B2
                                              541   641   651   C1
                                                    731   732   643
                                                          741   652
                                                          831   751
                                                                832
                                                                931
                                                                5431
		

Crossrefs

The version for subsets of prescribed maximum is A045691.
The double-free case is A120641.
The non-strict case is A350837, ranked by A350838.
An additive version (differences) is A350844, non-strict A350842.
The non-strict complement is counted by A350846, ranked by A350845.
Versions for prescribed quotients:
= 2: A154402, sets A001511.
!= 2: A350840 (this sequence), sets A045691.
>= 2: A000929, sets A018819.
<= 2: A342095, non-strict A342094.
< 2: A342097, non-strict A342096, sets A045690.
> 2: A342098, sets A040039.
A000041 = integer partitions.
A000045 = sets containing n with all differences > 2.
A003114 = strict partitions with no successions, ranked by A325160.
A116931 = partitions with no successions, ranked by A319630.
A116932 = partitions with differences != 1 or 2, strict A025157.
A323092 = double-free integer partitions, ranked by A320340.
A350839 = partitions with gaps and conjugate gaps, ranked by A350841.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&And@@Table[#[[i-1]]/#[[i]]!=2,{i,2,Length[#]}]&]],{n,0,30}]

A350845 Heinz numbers of integer partitions with at least two adjacent parts of quotient 2.

Original entry on oeis.org

6, 12, 18, 21, 24, 30, 36, 42, 48, 54, 60, 63, 65, 66, 72, 78, 84, 90, 96, 102, 108, 114, 120, 126, 130, 132, 133, 138, 144, 147, 150, 156, 162, 168, 174, 180, 186, 189, 192, 195, 198, 204, 210, 216, 222, 228, 231, 234, 240, 246, 252, 258, 260, 264, 266, 270
Offset: 1

Views

Author

Gus Wiseman, Jan 20 2022

Keywords

Comments

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are numbers with at least two adjacent prime indices of quotient 1/2.

Examples

			The terms and corresponding partitions begin:
   6: (2,1)
  12: (2,1,1)
  18: (2,2,1)
  21: (4,2)
  24: (2,1,1,1)
  30: (3,2,1)
  36: (2,2,1,1)
  42: (4,2,1)
  48: (2,1,1,1,1)
  54: (2,2,2,1)
  60: (3,2,1,1)
  63: (4,2,2)
  65: (6,3)
  66: (5,2,1)
  72: (2,2,1,1,1)
  78: (6,2,1)
  84: (4,2,1,1)
  90: (3,2,2,1)
  96: (2,1,1,1,1,1)
		

Crossrefs

The complement is A350838, counted by A350837.
The strict complement is counted by A350840.
These partitions are counted by A350846.
A000041 = integer partitions.
A000045 = sets containing n with all differences > 2.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A116931 = partitions with no successions, ranked by A319630.
A116932 = partitions with differences != 1 or 2, strict A025157.
A323092 = double-free integer partitions, ranked by A320340.
A325160 ranks strict partitions with no successions, counted by A003114.
A350839 = partitions with gaps and conjugate gaps, ranked by A350841.

Programs

  • Mathematica
    primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
    Select[Range[100],MemberQ[Divide@@@Partition[primeptn[#],2,1],2]&]

A356845 Odd numbers with gapless prime indices.

Original entry on oeis.org

1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 23, 25, 27, 29, 31, 35, 37, 41, 43, 45, 47, 49, 53, 59, 61, 67, 71, 73, 75, 77, 79, 81, 83, 89, 97, 101, 103, 105, 107, 109, 113, 121, 125, 127, 131, 135, 137, 139, 143, 149, 151, 157, 163, 167, 169, 173, 175, 179, 181, 191
Offset: 1

Views

Author

Gus Wiseman, Sep 03 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.
A sequence is gapless if it covers an interval of positive integers.

Examples

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

Crossrefs

Consists of the odd terms of A073491.
These partitions are counted by A264396.
The strict case is A294674, counted by A136107.
The version for compositions is A356843, counted by A251729.
A001221 counts distinct prime factors, sum A001414.
A056239 adds up prime indices, row sums of A112798, lengths A001222.
A356069 counts gapless divisors, initial A356224 (complement A356225).
A356230 ranks gapless factorization lengths, firsts A356603.
A356233 counts factorizations into gapless numbers.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    nogapQ[m_]:=Or[m=={},Union[m]==Range[Min[m],Max[m]]];
    Select[Range[1,100,2],nogapQ[primeMS[#]]&]

A355527 Squarefree numbers having at least one pair of consecutive prime factors. Numbers n such that the minimal difference between adjacent prime indices of n is 1.

Original entry on oeis.org

6, 15, 30, 35, 42, 66, 70, 77, 78, 102, 105, 114, 138, 143, 154, 165, 174, 186, 195, 210, 221, 222, 231, 246, 255, 258, 282, 285, 286, 318, 323, 330, 345, 354, 366, 385, 390, 402, 426, 429, 435, 437, 438, 442, 455, 462, 465, 474, 498, 510, 534, 546, 555, 570
Offset: 1

Views

Author

Gus Wiseman, Jul 10 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.
A number is squarefree if it is not divisible by any perfect square > 1.
A number has consecutive prime factors if it is divisible by both prime(k) and prime(k+1) for some k.

Examples

			The terms together with their prime indices begin:
    6: {1,2}
   15: {2,3}
   30: {1,2,3}
   35: {3,4}
   42: {1,2,4}
   66: {1,2,5}
   70: {1,3,4}
   77: {4,5}
   78: {1,2,6}
  102: {1,2,7}
  105: {2,3,4}
  114: {1,2,8}
  138: {1,2,9}
  143: {5,6}
  154: {1,4,5}
  165: {2,3,5}
  174: {1,2,10}
  186: {1,2,11}
  195: {2,3,6}
  210: {1,2,3,4}
		

Crossrefs

Crossrefs found in the link are not repeated here.
All terms are in A005117, complement A013929.
For minimal difference <= 1 we have A055932.
For maximal instead of minimal difference = 1 we have A066312.
For minimal difference > 1 we have A325160.
If zero is considered a prime index we get A355530.
A001522 counts partitions with a fixed point (unproved), ranked by A352827.
A287352, A355533, A355534, A355536 list the differences of prime indices.
A355524 or A355525 give minimal difference between prime indices.

Programs

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

Formula

Intersection of A005117 (squarefree) and A104210 (has consecutive primes).

A355530 Squarefree numbers that are either even or have at least one pair of consecutive prime factors. Numbers n such that the minimal difference between adjacent 0-prepended prime indices of n is 1.

Original entry on oeis.org

2, 6, 10, 14, 15, 22, 26, 30, 34, 35, 38, 42, 46, 58, 62, 66, 70, 74, 77, 78, 82, 86, 94, 102, 105, 106, 110, 114, 118, 122, 130, 134, 138, 142, 143, 146, 154, 158, 165, 166, 170, 174, 178, 182, 186, 190, 194, 195, 202, 206, 210, 214, 218, 221, 222, 226, 230
Offset: 1

Views

Author

Gus Wiseman, Jul 10 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.
A number is squarefree if it is not divisible by any perfect square > 1.
A number has consecutive prime factors if it is divisible by both prime(k) and prime(k+1) for some k.

Examples

			The terms together with their prime indices begin:
   2: {1}
   6: {1,2}
  10: {1,3}
  14: {1,4}
  15: {2,3}
  22: {1,5}
  26: {1,6}
  30: {1,2,3}
  34: {1,7}
  35: {3,4}
  38: {1,8}
  42: {1,2,4}
  46: {1,9}
  58: {1,10}
  62: {1,11}
  66: {1,2,5}
  70: {1,3,4}
		

Crossrefs

Crossrefs found in the link are not repeated here.
All terms are in A005117, complement A013929.
For maximal instead of minimal difference we have A055932 or A066312.
Not prepending zero gives A355527.
A001522 counts partitions with a fixed point (unproved), ranked by A352827.
A056239 adds up prime indices.
A238352 counts partitions by fixed points, rank statistic A352822.
A279945 counts partitions by number of distinct differences.
A287352, A355533, A355534, A355536 list the differences of prime indices.
A355524 gives minimal difference if singletons go to 0, to index A355525.

Programs

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

Formula

Equals A005117 /\ (A005843 \/ A104210).

A356734 Heinz numbers of integer partitions with at least one neighborless part.

Original entry on oeis.org

2, 3, 4, 5, 7, 8, 9, 10, 11, 13, 14, 16, 17, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 31, 32, 33, 34, 37, 38, 39, 40, 41, 42, 43, 44, 46, 47, 49, 50, 51, 52, 53, 55, 56, 57, 58, 59, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 73, 74, 76, 78, 79, 80, 81, 82, 83
Offset: 1

Views

Author

Gus Wiseman, Aug 26 2022

Keywords

Comments

First differs from A319630 in lacking 1 and having 42 (prime indices: {1,2,4}).
A part x is neighborless if neither x - 1 nor x + 1 are parts.
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.

Examples

			The terms together with their prime indices begin:
    2: {1}
    3: {2}
    4: {1,1}
    5: {3}
    7: {4}
    8: {1,1,1}
    9: {2,2}
   10: {1,3}
   11: {5}
   13: {6}
   14: {1,4}
   16: {1,1,1,1}
   17: {7}
   19: {8}
   20: {1,1,3}
   21: {2,4}
   22: {1,5}
		

Crossrefs

These partitions are counted by A356236.
The singleton case is A356237, counted by A356235 (complement A355393).
The strict case is counted by A356607, complement A356606.
The complement is A356736, counted by A355394.
A001221 counts distinct prime factors, sum A001414.
A003963 multiplies together the prime indices of n.
A007690 counts partitions with no singletons, complement A183558.
A056239 adds up prime indices, row sums of A112798, lengths A001222.
A073491 lists numbers with gapless prime indices, complement A073492.
A132747 counts non-isolated divisors, complement A132881.
A356069 counts gapless divisors, initial A356224 (complement A356225).

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Select[Range[100],Function[ptn,Or@@Table[!MemberQ[ptn,x-1]&&!MemberQ[ptn,x+1],{x,Union[ptn]}]]@*primeMS]

A325162 Squarefree numbers with no two prime indices differing by less than 3.

Original entry on oeis.org

1, 2, 3, 5, 7, 11, 13, 14, 17, 19, 22, 23, 26, 29, 31, 33, 34, 37, 38, 39, 41, 43, 46, 47, 51, 53, 57, 58, 59, 61, 62, 65, 67, 69, 71, 73, 74, 79, 82, 83, 85, 86, 87, 89, 93, 94, 95, 97, 101, 103, 106, 107, 109, 111, 113, 115, 118, 119, 122, 123, 127, 129, 131
Offset: 1

Views

Author

Gus Wiseman, Apr 05 2019

Keywords

Comments

A prime index of n is a number m such that prime(m) divides n.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are Heinz numbers of integer partitions into distinct parts, no two differing by less than 3 (counted by A025157).

Examples

			The sequence of terms together with their prime indices begins:
   1: {}
   2: {1}
   3: {2}
   5: {3}
   7: {4}
  11: {5}
  13: {6}
  14: {1,4}
  17: {7}
  19: {8}
  22: {1,5}
  23: {9}
  26: {1,6}
  29: {10}
  31: {11}
  33: {2,5}
  34: {1,7}
  37: {12}
  38: {1,8}
  39: {2,6}
		

Crossrefs

Programs

  • Maple
    filter:= proc(n) local F;
      F:= ifactors(n)[2];
      if ormap(t -> t[2]>1, F) then return false fi;
      if nops(F) <= 1 then return true fi;
      F:= map(numtheory:-pi,sort(map(t -> t[1],F)));
      min(F[2..-1]-F[1..-2]) >= 3;
    end proc:
    select(filter, [$1..200]); # Robert Israel, Apr 08 2019
  • Mathematica
    Select[Range[100],Min@@Differences[Flatten[Cases[FactorInteger[#],{p_,k_}:>Table[PrimePi[p],{k}]]]]>2&]

A356733 Number of neighborless parts in the integer partition with Heinz number n.

Original entry on oeis.org

0, 1, 1, 1, 1, 0, 1, 1, 1, 2, 1, 0, 1, 2, 0, 1, 1, 0, 1, 2, 2, 2, 1, 0, 1, 2, 1, 2, 1, 0, 1, 1, 2, 2, 0, 0, 1, 2, 2, 2, 1, 1, 1, 2, 0, 2, 1, 0, 1, 2, 2, 2, 1, 0, 2, 2, 2, 2, 1, 0, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 0, 1, 2, 0, 2, 0, 1, 1, 2, 1, 2, 1, 1, 2, 2, 2, 2, 1, 0, 2, 2, 2, 2, 2, 0, 1, 2, 2, 2, 1, 1, 1, 2, 0
Offset: 1

Views

Author

Gus Wiseman, Aug 26 2022

Keywords

Comments

A part x is neighborless if neither x - 1 nor x + 1 are parts.
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.

Examples

			The prime indices of 42 are {1,2,4}, of which only 4 is neighborless, so a(42) = 1.
The prime indices of 462 are {1,2,4,5}, all of which have neighbors, so a(462) = 0.
The prime indices of 1300 are {1,1,3,3,6}, with neighborless parts {1,3,6}, so a(1300) = 3.
		

Crossrefs

Positions of first appearances are 1 followed by A066205.
Dominated by A287170 (firsts also A066205).
Positions of terms > 0 are A356734.
The complement is counted by A356735.
A001221 counts distinct prime factors, sum A001414.
A003963 multiplies together prime indices.
A007690 counts partitions with no singletons, complement A183558.
A056239 adds up prime indices, row sums of A112798, lengths A001222.
A073491 lists numbers with gapless prime indices, complement A073492.
A132747 counts non-isolated divisors, complement A132881.
A355393 counts partitions w/o a neighborless singleton, complement A356235.
A355394 counts partitions w/o a neighborless part, complement A356236.
A356069 counts gapless divisors, initial A356224 (complement A356225).
A356607 counts strict partitions w/ a neighborless part, complement A356606.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Table[Length[Select[Union[primeMS[n]],!MemberQ[primeMS[n],#-1]&&!MemberQ[primeMS[n],#+1]&]],{n,100}]
  • PARI
    A356733(n) = if(1==n,0,my(pis=apply(primepi,factor(n)[,1])); sum(i=1, #pis, ((n%prime(pis[i]+1)) && (pis[i]==1 || (n%prime(pis[i]-1)))))); \\ Antti Karttunen, Jan 28 2025

Formula

a(n) = A001221(n) - A356735(n).

Extensions

Data section extended to a(105) by Antti Karttunen, Jan 28 2025
Previous Showing 11-20 of 22 results. Next