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.

Showing 1-6 of 6 results.

A291166 Connected Haar graph numbers.

Original entry on oeis.org

1, 3, 5, 6, 7, 9, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 33, 35, 37, 38, 39, 41, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81
Offset: 1

Views

Author

Eric W. Weisstein, Aug 19 2017

Keywords

Comments

Complement of A291165.
These appear to be numbers whose positions of 1's in their reversed binary expansion are relatively prime. If so, this sequence lists all positions of 1's in A326674. Numbers whose positions of 1's in their reversed binary expansion are pairwise coprime (as opposed to relatively prime) are A326675. - Gus Wiseman, Jul 19 2019

Links

Crossrefs

Cf. A000120, A029931, A048793, A059519, A070939, A289508, A291165, A295235, A319826, A326031, A326669, A326672, A326673.

A326675 The positions of 1's in the reversed binary expansion of n are pairwise coprime, where a singleton is not coprime unless it is {1}.

Original entry on oeis.org

1, 3, 5, 6, 7, 9, 12, 13, 17, 18, 19, 20, 21, 22, 23, 24, 25, 28, 29, 33, 48, 49, 65, 66, 67, 68, 69, 70, 71, 72, 73, 76, 77, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 92, 93, 96, 97, 112, 113, 129, 132, 133, 144, 145, 148, 149, 192, 193, 196, 197, 208, 209, 212
Offset: 1

Views

Author

Gus Wiseman, Jul 17 2019

Keywords

Examples

			41 has reversed binary expansion (1,0,0,1,0,1) with positions of 1's being {1,4,6}, which are not pairwise coprime, so 41 is not in the sequence.

Links

Crossrefs

Equals the complement of A131577 in A087087.
Numbers whose prime indices are pairwise coprime are A302696.
Taking relatively prime instead of pairwise coprime gives A291166.
Cf. A000120, A051293, A070939, A289509, A291165, A319826, A326669, A326673, A326674.

Programs

  • Maple
    extend:= proc(L) local C,c;
  C:= select(t -> andmap(s -> igcd(s,t)=1, L), [$1..L[-1]-1]);
  L, seq(procname([op(L),c]),c=C)
end proc:
g:= proc(L) local i;
  add(2^(i-1),i=L)
end proc:
map(g, [[1],seq(extend([k])[2..-1], k=2..10)]); # Robert Israel, Jul 19 2019
  • Mathematica
    Select[Range[100],CoprimeQ@@Join@@Position[Reverse[IntegerDigits[#,2]],1]&]
  • PARI
    is(n) = my (p=1); while (n, my (o=1+valuation(n,2)); if (gcd(p,o)>1, return (0), n-=2^(o-1); p*=o)); return (1) \\ Rémy Sigrist, Jul 19 2019

A326674 GCD of the set of positions of 1's in the reversed binary expansion of n.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Jul 17 2019

Keywords

Comments

a(n) is even if and only if n is in A062880. - Robert Israel, Oct 13 2020

Examples

			The reversed binary expansion of 40 is (0,0,0,1,0,1), with positions of 1's being {4,6}, so a(40) = GCD(4,6) = 2.

Links

Crossrefs

Positions of 1's are A291166, and non-1's are A291165.
GCDs of prime indices are A289508.
GCDs of strict partitions encoded by FDH numbers are A319826.
Numbers whose binary positions are pairwise coprime are A326675.
Cf. A000120, A051293, A062880, A070939, A326667, A326668, A326669, A326670, A326672, A326673.

Programs

  • Maple
    f:= proc(n) local B;
  B:= convert(n,base,2);
  igcd(op(select(t -> B[t]=1, [$1..ilog2(n)+1])))
end proc:
map(f, [$1..100]); # Robert Israel, Oct 13 2020
  • Mathematica
    Table[GCD@@Join@@Position[Reverse[IntegerDigits[n,2]],1],{n,100}]

Formula

Trivially, a(n) <= log_2(n). - Charles R Greathouse IV, Nov 15 2022

A319827 FDH numbers of relatively prime strict integer partitions.

Original entry on oeis.org

2, 6, 8, 10, 12, 14, 18, 20, 21, 22, 24, 26, 28, 30, 32, 33, 34, 35, 38, 40, 42, 44, 46, 48, 50, 52, 54, 55, 56, 57, 58, 60, 62, 63, 66, 68, 70, 72, 74, 75, 76, 77, 78, 80, 82, 84, 86, 88, 90, 91, 93, 94, 95, 96, 98, 99, 100, 102, 104, 105, 106, 108, 110, 112
Offset: 1

Views

Author

Gus Wiseman, Sep 28 2018

Keywords

Comments

Let f(n) = A050376(n) be the n-th Fermi-Dirac prime. The FDH number of a strict integer partition (y_1, ..., y_k) is f(y_1) * ... * f(y_k).

Examples

			The sequence of all relatively prime strict integer partitions begins: (1), (2,1), (3,1), (4,1), (3,2), (5,1), (6,1), (4,3), (5,2), (7,1), (3,2,1), (8,1), (5,3), (4,2,1).

Crossrefs

Cf. A050376, A056239, A064547, A213925, A289508, A289509, A290103, A299755, A299757, A319826.

Programs

  • Mathematica
    nn=200;
FDfactor[n_]:=If[n==1,{},Sort[Join@@Cases[FactorInteger[n],{p_,k_}:>Power[p,Cases[Position[IntegerDigits[k,2]//Reverse,1],{m_}:>2^(m-1)]]]]];
FDprimeList=Array[FDfactor,nn,1,Union];FDrules=MapIndexed[(#1->#2[[1]])&,FDprimeList];
Select[Range[nn],GCD@@(FDfactor[#]/.FDrules)==1&]

A319825 LCM of the strict integer partition with FDH number n.

Original entry on oeis.org

0, 1, 2, 3, 4, 2, 5, 3, 6, 4, 7, 6, 8, 5, 4, 9, 10, 6, 11, 12, 10, 7, 12, 6, 13, 8, 6, 15, 14, 4, 15, 9, 14, 10, 20, 6, 16, 11, 8, 12, 17, 10, 18, 21, 12, 12, 19, 18, 20, 13, 10, 24, 21, 6, 28, 15, 22, 14, 22, 12, 23, 15, 30, 9, 8, 14, 24, 30, 12, 20, 25, 6, 26
Offset: 1

Views

Author

Gus Wiseman, Sep 28 2018

Keywords

Comments

Let f(n) = A050376(n) be the n-th Fermi-Dirac prime. The FDH number of a strict integer partition (y_1, ..., y_k) is f(y_1) * ... * f(y_k).

Examples

			45 is the FDH number of (6,4), which has LCM 12, so a(45) = 12.

Crossrefs

Cf. A050376, A056239, A064547, A213925, A289508, A289509, A290103, A299755, A299757, A319826.

Programs

  • Mathematica
    nn=200;
FDfactor[n_]:=If[n==1,{},Sort[Join@@Cases[FactorInteger[n],{p_,k_}:>Power[p,Cases[Position[IntegerDigits[k,2]//Reverse,1],{m_}->2^(m-1)]]]]];
FDprimeList=Array[FDfactor,nn,1,Union];FDrules=MapIndexed[(#1->#2[[1]])&,FDprimeList];
LCM@@@Table[Reverse[FDfactor[n]/.FDrules],{n,2,nn}]

A327905 FDH numbers of pairwise coprime sets.

Original entry on oeis.org

2, 6, 8, 10, 12, 14, 18, 20, 21, 22, 24, 26, 28, 32, 33, 34, 35, 38, 40, 42, 44, 46, 48, 50, 52, 55, 56, 57, 58, 62, 63, 66, 68, 70, 74, 75, 76, 77, 80, 82, 84, 86, 88, 91, 93, 94, 95, 96, 98, 99, 100, 104, 106, 110, 112, 114, 116, 118, 122, 123, 125, 126, 132
Offset: 1

Views

Author

Gus Wiseman, Sep 30 2019

Keywords

Comments

Let f(n) = A050376(n) be the n-th Fermi-Dirac prime. The FDH-number of a strict partition or finite set {y_1,...,y_k} is f(y_1)*...*f(y_k).
We use the Mathematica function CoprimeQ, meaning a singleton is not coprime unless it is {1}.

Examples

			The sequence of terms together with their corresponding coprime sets begins:
   2: {1}
   6: {1,2}
   8: {1,3}
  10: {1,4}
  12: {2,3}
  14: {1,5}
  18: {1,6}
  20: {3,4}
  21: {2,5}
  22: {1,7}
  24: {1,2,3}
  26: {1,8}
  28: {3,5}
  32: {1,9}
  33: {2,7}
  34: {1,10}
  35: {4,5}
  38: {1,11}
  40: {1,3,4}
  42: {1,2,5}

Links

  • Wolfram Language Documentation, CoprimeQ

Crossrefs

Heinz numbers of pairwise coprime partitions are A302696 (all), A302797 (strict), A302569 (with singletons), and A302798 (strict with singletons).
FDH numbers of relatively prime sets are A319827.
Cf. A050376, A056239, A064547, A213925, A259936, A299755, A299757, A304711, A319826, A326675.

Programs

  • Mathematica
    FDfactor[n_]:=If[n==1,{},Sort[Join@@Cases[FactorInteger[n],{p_,k_}:>Power[p,Cases[Position[IntegerDigits[k,2]//Reverse,1],{m_}->2^(m-1)]]]]];
nn=100;FDprimeList=Array[FDfactor,nn,1,Union];
FDrules=MapIndexed[(#1->#2[[1]])&,FDprimeList];
Select[Range[nn],CoprimeQ@@(FDfactor[#]/.FDrules)&]
Showing 1-6 of 6 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.