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 21-26 of 26 results.

A326700 Denominator of the average position of a 1 in the reversed binary expansion of n.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Jul 20 2019

Keywords

Comments

The sequence of fractions begins: 1, 2, 3/2, 3, 2, 5/2, 2, 4, 5/2, 3, 7/3, 7/2, 8/3, 3, 5/2, 5, 3, 7/2, 8/3, 4.
For example, the reversed binary expansion of 18 is (0,1,0,0,1), and the average of {2,5} is 7/2, so a(18) = 2.
a(n) divides A000120(n). - Robert Israel, Oct 07 2019

Crossrefs

Positions of 1's are A326669.

Programs

  • Maple
    f:= proc(n) local L;
      L:= convert(n,base,2);
      L:= select(t -> L[t]=1, [$1..nops(L)]);
      denom(convert(L,`+`)/nops(L))
    end proc:
    map(f, [$1..100]); # Robert Israel, Oct 07 2019
  • Mathematica
    Table[Denominator[Mean[Join@@Position[Reverse[IntegerDigits[n,2]],1]]],{n,100}]

A335237 Numbers whose binary indices are not a singleton nor pairwise coprime.

Original entry on oeis.org

0, 10, 11, 14, 15, 26, 27, 30, 31, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 74, 75, 78, 79, 90, 91, 94, 95, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 114, 115, 116
Offset: 1

Views

Author

Gus Wiseman, May 28 2020

Keywords

Comments

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793.

Examples

			The sequence of terms together with their binary expansions and binary indices begins:
    0:       0 ~ {}
   10:    1010 ~ {2,4}
   11:    1011 ~ {1,2,4}
   14:    1110 ~ {2,3,4}
   15:    1111 ~ {1,2,3,4}
   26:   11010 ~ {2,4,5}
   27:   11011 ~ {1,2,4,5}
   30:   11110 ~ {2,3,4,5}
   31:   11111 ~ {1,2,3,4,5}
   34:  100010 ~ {2,6}
   35:  100011 ~ {1,2,6}
   36:  100100 ~ {3,6}
   37:  100101 ~ {1,3,6}
   38:  100110 ~ {2,3,6}
   39:  100111 ~ {1,2,3,6}
   40:  101000 ~ {4,6}
   41:  101001 ~ {1,4,6}
   42:  101010 ~ {2,4,6}
   43:  101011 ~ {1,2,4,6}
   44:  101100 ~ {3,4,6}
		

Crossrefs

The version for prime indices is A316438.
The version for standard compositions is A335236.
Numbers whose binary indices are pairwise coprime or a singleton: A087087.
Non-coprime partitions are counted by A335240.
All of the following pertain to compositions in standard order (A066099):
- Length is A000120.
- Sum is A070939.
- Product is A124758.
- Reverse is A228351
- GCD is A326674.
- Heinz number is A333219.
- LCM is A333226.

Programs

  • Mathematica
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    Select[Range[0,100],!(Length[bpe[#]]==1||CoprimeQ@@bpe[#])&]

Formula

Complement in A001477 of A326675 and A000079.

A331579 Position of first appearance of n in A124758 (products of compositions in standard order).

Original entry on oeis.org

1, 2, 4, 8, 16, 18, 64, 34, 36, 66, 1024, 68, 4096, 258, 132, 136, 65536, 146, 262144, 264, 516, 4098
Offset: 1

Views

Author

Gus Wiseman, Mar 20 2020

Keywords

Comments

A composition of n is a finite sequence of positive integers summing to n. The k-th composition in standard order (row k of 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.

Examples

			The list of terms together with the corresponding compositions begins:
       1: (1)
       2: (2)
       4: (3)
       8: (4)
      16: (5)
      18: (3,2)
      64: (7)
      34: (4,2)
      36: (3,3)
      66: (5,2)
    1024: (11)
      68: (4,3)
    4096: (13)
     258: (7,2)
     132: (5,3)
     136: (4,4)
   65536: (17)
     146: (3,3,2)
  262144: (19)
     264: (5,4)
		

Crossrefs

The product of prime indices is A003963.
The sum of binary indices is A029931.
The sum of prime indices is A056239.
Sums of compositions in standard order are A070939.
The product of binary indices is A096111.
All terms belong to A114994.
Products of compositions in standard order are A124758.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    q=Table[Times@@stc[n],{n,1000}];
    Table[Position[q,i][[1,1]],{i,First[Split[Union[q],#1+1==#2&]]}]

A333492 Position of first appearance of n in A271410 (LCM of binary indices).

Original entry on oeis.org

1, 2, 4, 8, 16, 6, 64, 128, 256, 18, 1024, 12, 4096, 66, 20, 32768, 65536, 258, 262144, 24, 68, 1026, 4194304, 132, 16777216, 4098, 67108864, 72, 268435456, 22, 1073741824, 2147483648, 1028, 65538, 80, 264, 68719476736, 262146, 4100, 144, 1099511627776, 70, 4398046511104
Offset: 1

Views

Author

Gus Wiseman, Mar 28 2020

Keywords

Comments

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793.

Examples

			The sequence together with the corresponding binary expansions and binary indices begins:
      1:                 1 ~ {1}
      2:                10 ~ {2}
      4:               100 ~ {3}
      8:              1000 ~ {4}
     16:             10000 ~ {5}
      6:               110 ~ {2,3}
     64:           1000000 ~ {7}
    128:          10000000 ~ {8}
    256:         100000000 ~ {9}
     18:             10010 ~ {2,5}
   1024:       10000000000 ~ {11}
     12:              1100 ~ {3,4}
   4096:     1000000000000 ~ {13}
     66:           1000010 ~ {2,7}
     20:             10100 ~ {3,5}
  32768:  1000000000000000 ~ {16}
  65536: 10000000000000000 ~ {17}
    258:         100000010 ~ {2,9}
		

Crossrefs

The version for prime indices is A330225.
The version for standard compositions is A333225.
Let q(k) be the binary indices of k:
- The sum of q(k) is A029931(k).
- The elements of q(k) are row k of A048793.
- The product of q(k) is A096111(k).
- The LCM of q(k) is A271410(k).
- The GCD of q(k) is A326674(k).
GCD of prime indices is A289508.
LCM of prime indices is A290103.
LCM of standard compositions is A333226.

Programs

  • Mathematica
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    q=Table[LCM@@bpe[n],{n,10000}];
    Table[Position[q,i][[1,1]],{i,First[Split[Union[q],#1+1==#2&]]}]

Extensions

Terms a(23) and beyond from Giovanni Resta, Mar 29 2020

A333225 Position of first appearance of n in A333226 (LCMs of compositions in standard order).

Original entry on oeis.org

1, 2, 4, 8, 16, 18, 64, 128, 256, 66, 1024, 68, 4096, 258, 132, 32768, 65536, 1026, 262144, 264, 516, 4098
Offset: 1

Views

Author

Gus Wiseman, Mar 26 2020

Keywords

Comments

The k-th composition in standard order (row k of 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.

Examples

			The sequence together with the corresponding compositions begins:
       1: (1)
       2: (2)
       4: (3)
       8: (4)
      16: (5)
      18: (3,2)
      64: (7)
     128: (8)
     256: (9)
      66: (5,2)
    1024: (11)
      68: (4,3)
    4096: (13)
     258: (7,2)
     132: (5,3)
   32768: (16)
   65536: (17)
    1026: (9,2)
  262144: (19)
     264: (5,4)
		

Crossrefs

The version for binary indices is A333492.
The version for prime indices is A330225.
Let q(k) be the k-th composition in standard order:
- The terms of q(k) are row k of A066099.
- The sum of q(k) is A070939(k).
- The product of q(k) is A124758(k).
- The GCD of q(k) is A326674(k).
- The LCM of q(k) is A333226(k).

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    q=Table[LCM@@stc[n],{n,10000}];
    Table[Position[q,i][[1,1]],{i,First[Split[Union[q],#1+1==#2&]]}]

A335241 Numbers whose prime indices are not pairwise coprime, where a singleton is not coprime unless it is {1}.

Original entry on oeis.org

1, 3, 5, 7, 9, 11, 13, 17, 18, 19, 21, 23, 25, 27, 29, 31, 36, 37, 39, 41, 42, 43, 45, 47, 49, 50, 53, 54, 57, 59, 61, 63, 65, 67, 71, 72, 73, 75, 78, 79, 81, 83, 84, 87, 89, 90, 91, 97, 98, 99, 100, 101, 103, 105, 107, 108, 109, 111, 113, 114, 115, 117, 121
Offset: 1

Views

Author

Gus Wiseman, May 30 2020

Keywords

Comments

We use the Mathematica definition for CoprimeQ, so a singleton is not considered coprime unless it is (1).
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 sequence of terms together with their prime indices begins:
    1: {}          31: {11}          61: {18}
    3: {2}         36: {1,1,2,2}     63: {2,2,4}
    5: {3}         37: {12}          65: {3,6}
    7: {4}         39: {2,6}         67: {19}
    9: {2,2}       41: {13}          71: {20}
   11: {5}         42: {1,2,4}       72: {1,1,1,2,2}
   13: {6}         43: {14}          73: {21}
   17: {7}         45: {2,2,3}       75: {2,3,3}
   18: {1,2,2}     47: {15}          78: {1,2,6}
   19: {8}         49: {4,4}         79: {22}
   21: {2,4}       50: {1,3,3}       81: {2,2,2,2}
   23: {9}         53: {16}          83: {23}
   25: {3,3}       54: {1,2,2,2}     84: {1,1,2,4}
   27: {2,2,2}     57: {2,8}         87: {2,10}
   29: {10}        59: {17}          89: {24}
		

Crossrefs

The complement is A302696.
The version for relatively prime instead of coprime is A318978.
The version for standard compositions is A335239.
These are the Heinz numbers of the partitions counted by A335240.
Singleton or pairwise coprime partitions are counted by A051424.
Singleton or pairwise coprime sets are ranked by A087087.
Primes and numbers with pairwise coprime prime indices are A302569.
Numbers whose binary indices are pairwise coprime are A326675.
Coprime standard composition numbers are A333227.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Select[Range[100],!CoprimeQ@@primeMS[#]&]
Previous Showing 21-26 of 26 results.