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

A233416 c-perfect numbers.

Original entry on oeis.org

11, 71, 226, 3676, 16911, 1143267, 4721203, 8906035
Offset: 1

Views

Author

Keywords

Comments

A number k is called a c-perfect number if the sum of its proper c-divisors equals k.
For the definition of a c-divisor of an integer, see comment in A124771.
From Charlie Neder, Jan 17 2019: (Start)
Sequence in binary: 1011, 1000111, 11100010, 111001011100, 100001000001111, 100010111000111100011, 10010000000101000110011, 100001111110010100110011...
Next term > 10^7. (End)

Examples

			For n=11 which is a concatenation of binary parts (10)(1)(1); we have proper positive c-divisors 1, 2, 3, and 5, the sum of which is 11, so 11 is in the sequence.
		

Crossrefs

Formula

A233394(a(n))=2*a(n).

Extensions

a(6)-a(8) from Charlie Neder, Jan 17 2019

A233655 Sum of parts power divisors of canonical representation of n (A233569).

Original entry on oeis.org

1, 2, 4, 4, 9, 9, 11, 8, 17, 12, 26, 17, 26, 26, 26, 16, 33, 26, 48, 26, 45, 45, 63, 33, 48, 45, 63, 48, 63, 63, 57, 32, 65, 50, 92, 40, 97, 97, 115, 50, 97, 54, 120, 97, 120, 120, 140, 65, 92, 97, 115, 97, 120, 120, 140, 92, 115, 120, 140, 115, 140, 140, 120, 64
Offset: 1

Views

Author

Vladimir Shevelev, Dec 14 2013

Keywords

Comments

If the canonical representation of n is A233569(n)=(1)^k_1[*](10)^k_2[*]...[*](10...0)^k_t, where [*] means concatenation, then we say that a number (1)^r_1[*](10)^r_2[*]...[*](10...0)^r_t is a parts power divisor of canonical representation of n, iff all r_i<=k_i.
Note that, by agreement, (10...0)^0 means the absence of the corresponding part.

Examples

			Since A233569(5)=6, then the canonical representation of 5 is (1)^1[*](10)^1 which has parts power divisors 0, (1)^1, (10)^1, (1)^1[*](10)^1. Converting to decimal, they are 0,1,2,6 with sum 9. So a(5)=9. Note that 6 is a parts power divisor of 5, but not a c-divisors of 5 (see comment in A124771).
Analogously, 12 = (1)^1[*](10)^0[*](100)^1 is a parts power divisor of 52 = (1)^1[*](10)^1[*](100)^1, but not a c-divisor of 52.
		

Crossrefs

Formula

a((10...0[m zeros])^k) = 2^m/(2^(m+1)-1)^2 * (2^((m+1)*(k+1)) - 1) - (k+1)*2^m/(2^(m+1)-1). For example, a(101010)[here m=1,k=3] = 2/9*(2^8-1) - 4*2/3 = 54.
Thus a(42)=54. What is a general formula for a(n)?

A235669 Sum of parts of the form 10...0 and 20...0 with nonnegative number of zeros in ternary representation of n as the corresponding numbers 3^n and 2*3^n.

Original entry on oeis.org

0, 1, 2, 3, 2, 3, 6, 3, 4, 9, 4, 5, 4, 3, 4, 7, 4, 5, 18, 7, 8, 5, 4, 5, 8, 5, 6, 27, 10, 11, 6, 5, 6, 9, 6, 7, 10, 5, 6, 5, 4, 5, 8, 5, 6, 19, 8, 9, 6, 5, 6, 9, 6, 7, 54, 19, 20, 9, 8, 9, 12, 9, 10, 11, 6, 7, 6, 5, 6, 9, 6, 7, 20, 9, 10, 7, 6, 7, 10, 7, 8, 81, 28, 29, 12
Offset: 0

Views

Author

Vladimir Shevelev, Jan 13 2014

Keywords

Comments

The number of appearances of k is the number of compositions of k into numbers of the form 3^n and 2*3^n, A235684(k).

Crossrefs

Programs

  • Mathematica
    bitPatt[n_,b_]:=Split[IntegerDigits[n,b ],#2==0&]; Map[Plus@@Map[FromDigits[#,3]&,bitPatt[#,3]]&,Range[0,50]] (* Peter J. C. Moses, Jan 13 2014 *)

A354582 Number of distinct contiguous constant subsequences (or partial runs) in the k-th composition in standard order.

Original entry on oeis.org

0, 1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3, 2, 2, 3, 4, 1, 2, 2, 3, 2, 3, 2, 4, 2, 2, 3, 3, 3, 3, 4, 5, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 2, 3, 5, 2, 2, 3, 3, 3, 3, 2, 4, 3, 3, 4, 3, 4, 4, 5, 6, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 2, 3, 4, 5, 2, 3, 2, 4, 3, 4, 3
Offset: 0

Views

Author

Gus Wiseman, Jun 13 2022

Keywords

Comments

The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

Examples

			Composition number 981 in standard order is (1,1,1,2,2,2,1), with partial runs (1), (2), (1,1), (2,2), (1,1,1), (2,2,2), so a(981) = 6.
As a triangle:
  1
  1 2
  1 2 2 3
  1 2 2 3 2 2 3 4
  1 2 2 3 2 3 2 4 2 2 3 3 3 3 4 5
  1 2 2 3 2 3 3 4 2 3 3 4 3 2 3 5 2 2 3 3 3 3 2 4 3 3 4 3 4 4 5 6
		

Crossrefs

The version for partitions is A001222, full A001221.
If we allow any constant subsequence we get A063787.
If we allow any contiguous subsequence we get A124771.
Positions of first appearances are A126646.
The version for binary indices is A330036, full A005811.
If we allow any subsequence we get A334299.
The full version is A351014, firsts A351015.
The version for run-sums of partitions is A353861, full A353835.
Counting distinct sums of partial runs gives A354907, full A353849.
A066099 lists all compositions in standard order.
A124767 counts runs in standard compositions.
A238279 and A333755 count compositions by number of runs.
A353852 ranks compositions with all distinct run-sums, counted by A353850.
A353853-A353859 pertain to composition run-sum trajectory.
A353932 lists run-sums of standard compositions, rows ranked by A353847.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    pre[y_]:=NestWhileList[Most,y,Length[#]>1&];
    Table[Length[Union[Join@@pre/@Split[stc[n]]]],{n,0,100}]

A353696 Numbers k such that the k-th composition in standard order (A066099) is empty, a singleton, or has run-lengths that are a consecutive subsequence that is already counted.

Original entry on oeis.org

0, 1, 2, 4, 8, 10, 16, 32, 43, 58, 64, 128, 256, 292, 349, 442, 512, 586, 676, 697, 826, 1024, 1210, 1338, 1393, 1394, 1396, 1594, 2048, 2186, 2234, 2618, 2696, 2785, 2786, 2792, 3130, 4096, 4282, 4410, 4666, 5178, 5569, 5570, 5572, 5576, 5584, 6202, 8192
Offset: 1

Views

Author

Gus Wiseman, May 22 2022

Keywords

Comments

First differs from the non-consecutive version A353431 in lacking 22318, corresponding to the binary word 101011100101110 and standard composition (2,2,1,1,3,2,1,1,2), whose run-lengths (2,2,1,1,2,1) are a subsequence but not a consecutive subsequence.
The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

Examples

			The terms together with their corresponding compositions begin:
    0: ()
    1: (1)
    2: (2)
    4: (3)
    8: (4)
   10: (2,2)
   16: (5)
   32: (6)
   43: (2,2,1,1)
   58: (1,1,2,2)
   64: (7)
  128: (8)
  256: (9)
  292: (3,3,3)
  349: (2,2,1,1,2,1)
  442: (1,2,1,1,2,2)
  512: (10)
  586: (3,3,2,2)
  676: (2,2,3,3)
  697: (2,2,1,1,3,1)
  826: (1,3,1,1,2,2)
		

Crossrefs

Non-recursive non-consecutive for partitions: A325755, counted by A325702.
Non-consecutive: A353431, counted by A353391.
Non-consecutive for partitions: A353393, counted by A353426.
Non-recursive non-consecutive: A353402, counted by A353390.
Counted by: A353430.
Non-recursive: A353432, counted by A353392.
A005811 counts runs in binary expansion.
A011782 counts compositions.
A066099 lists compositions in standard order, run-lengths A333769.
Statistics of standard compositions:
- Length is A000120, sum A070939.
- Runs are counted by A124767, distinct A351014.
- Subsequences are counted by A334299, contiguous A124770/A124771.
- Runs-resistance is A333628.
Classes of standard compositions:
- Partitions are A114994, strict A333255, multisets A225620, sets A333256.
- Runs are A272919, counted by A000005.
- Golomb rulers are A333222, counted by A169942.
- Anti-runs are A333489, counted by A003242.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    yoyQ[y_]:=Length[y]<=1||MemberQ[Join@@Table[Take[y,{i,j}],{i,Length[y]},{j,i,Length[y]}],Length/@Split[y]]&&yoyQ[Length/@Split[y]];
    Select[Range[0,1000],yoyQ[stc[#]]&]

A354908 Numbers k such that the k-th composition in standard order (graded reverse-lexicographic, A066099) is collapsible.

Original entry on oeis.org

1, 2, 3, 4, 7, 8, 10, 11, 14, 15, 16, 31, 32, 36, 39, 42, 43, 46, 47, 58, 59, 60, 62, 63, 64, 127, 128, 136, 138, 139, 142, 143, 168, 170, 171, 174, 175, 184, 186, 187, 190, 191, 232, 234, 235, 238, 239, 248, 250, 251, 254, 255, 256, 292, 295, 316, 319, 484
Offset: 1

Views

Author

Gus Wiseman, Jun 23 2022

Keywords

Comments

The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.
If a collapse is an adding together of some partial run of an integer composition c, we say c is collapsible iff by some sequence of collapses it can be reduced to a single part. An example of such a sequence of collapses is (11132112) -> (332112) -> (33222) -> (6222) -> (66) -> (n), which shows that (11132112) is a collapsible composition of 12.

Examples

			The terms together with their corresponding compositions begin:
  1:(1)  2:(2)   4:(3)     8:(4)     16:(5)      32:(6)
         3:(11)  7:(111)  10:(22)    31:(11111)  36:(33)
                          11:(211)               39:(3111)
                          14:(112)               42:(222)
                          15:(1111)              43:(2211)
                                                 46:(2112)
                                                 47:(21111)
                                                 58:(1122)
                                                 59:(11211)
                                                 60:(1113)
                                                 62:(11112)
                                                 63:(111111)
		

Crossrefs

The standard compositions used here are A066099, run-sums A353847/A353932.
The version for Heinz numbers of partitions is A300273, counted by A275870.
These compositions are counted by A353860.
A003242 counts anti-run compositions, ranked by A333489, complement A261983.
A011782 counts compositions.
A124767 counts runs in standard compositions.
A238279 and A333755 count compositions by number of runs.
A334968 counts distinct sums of subsequences of standard compositions.
A351014 counts distinct runs of standard compositions, firsts A351015.
A353853-A353859 pertain to composition run-sum trajectory.
A354582 counts distinct partial runs of standard compositions, sums A354907.

Programs

  • Mathematica
    repcams[q_List]:=repcams[q]=Union[{q},If[UnsameQ@@q,{},Union@@repcams/@Union[Insert[Drop[q,#],Plus@@Take[q,#],First[#]]&/@Select[Tuples[Range[Length[q]],2],And[Less@@#,SameQ@@Take[q,#]]&]]]];
    stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    Select[Range[0,100],MemberQ[repcams[stc[#]],{_}]&]

A233412 c-analog of Euler phi-function: a(n) is number of nonnegative integers not exceeding n and c-prime to n.

Original entry on oeis.org

1, 1, 2, 2, 4, 2, 2, 3, 8, 3, 7, 3, 4, 3, 3, 5, 16, 5, 8, 5, 8, 4, 4, 4, 7, 5, 4, 4, 5, 4, 4, 8, 32, 8, 15, 8, 28, 4, 4, 7, 17, 4, 21, 6, 4, 6, 6, 6, 12, 10, 4, 9, 4, 6, 6, 6, 10, 9, 6, 6, 9, 6, 6, 13, 64, 13, 27, 13, 41, 6, 6, 12, 41, 11, 21, 5, 11, 5, 5, 11
Offset: 0

Views

Author

Vladimir Shevelev, Dec 09 2013

Keywords

Comments

Every number in binary is a concatenation of parts of the form 10...0 with k>=0 zeros. For example, 5=(10)(1), 11=(10)(1)(1), 7=(1)(1)(1). We call d>0 is a c-divisor of m, if d consists of some consecutive parts of m which are following in natural order (from the left to the right) in m (cf. comment in A124771). Note that, to d=0 corresponds an empty set of parts. So it is natural to consider 0 as a c-divisor of every m. For example, 3=(1)(1) is a c-divisor of 23, since (1)(1) includes in 23=(10)(1)(1)(1) in a natural order. Analogously, 1,2,5,7,11,23 are c-divisors of 23. But 6=(1)(10) is not a c-divisor of 23.
c-GCD(k,m) is called maximal common c-divisor of k,m. For example, c-GCD(7,11)=3.
Two numbers k,m are called mutually c-prime one to another, if c-GCD(k,m)=0.
In particular, 0 is c-prime to 0 (cf. 1 is prime to 1). Therefore, a(0)=1. Besides, every positive integer is c-prime to 0.

Examples

			Let n=12=(1)(100). It is clear that odd numbers end in (1) and are not prime to 12.
Besides, 6=(1)(10) also contains part (1) and 4=(100) is c-divisor of 12. Other even <=10 {0,2,8,10} are prime to 12. Thus a(12)=4.
		

Crossrefs

Formula

a(2^n)=2^n.

Extensions

More terms from Peter J. C. Moses, Dec 09 2013

A335518 Number of matching pairs of patterns, the first of length n and the second of length k.

Original entry on oeis.org

1, 1, 1, 3, 3, 3, 13, 13, 25, 13, 75, 75, 185, 213, 75, 541, 541, 1471, 2719, 2053, 541, 4683, 4683, 13265, 32973, 40367, 22313, 4683, 47293, 47293, 136711, 408265, 713277, 625295, 271609, 47293
Offset: 0

Views

Author

Gus Wiseman, Jun 23 2020

Keywords

Comments

We define a pattern to be a finite sequence covering an initial interval of positive integers. Patterns are counted by A000670 and ranked by A333217. A sequence S is said to match a pattern P if there is a not necessarily contiguous subsequence of S whose parts have the same relative order as P. For example, (3,1,1,3) matches (1,1,2), (2,1,1), and (2,1,2), but avoids (1,2,1), (1,2,2), and (2,2,1).

Examples

			Triangle begins:
     1
     1     1
     3     3     3
    13    13    25    13
    75    75   185   213    75
   541   541  1471  2719  2053   541
  4683  4683 13265 32973 40367 22313  4683
Row n =2 counts the following pairs:
  ()<=(1,1)  (1)<=(1,1)  (1,1)<=(1,1)
  ()<=(1,2)  (1)<=(1,2)  (1,2)<=(1,2)
  ()<=(2,1)  (1)<=(2,1)  (2,1)<=(2,1)
		

Crossrefs

Columns k = 0 and k = 1 are both A000670.
Row sums are A335517.
Patterns are ranked by A333217.
Patterns matched by a standard composition are counted by A335454.
Patterns contiguously matched by compositions are counted by A335457.
Minimal patterns avoided by a standard composition are counted by A335465.
Patterns matched by prime indices are counted by A335549.

Programs

  • Mathematica
    mstype[q_]:=q/.Table[Union[q][[i]]->i,{i,Length[Union[q]]}];
    allnorm[n_]:=If[n<=0,{{}},Function[s,Array[Count[s,y_/;y<=#]+1&,n]]/@Subsets[Range[n-1]+1]];
    Table[Sum[Length[Union[mstype/@Subsets[y,{k}]]],{y,Join@@Permutations/@allnorm[n]}],{n,0,5},{k,0,n}]
Previous Showing 31-38 of 38 results.