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 51-60 of 75 results. Next

A282748 Triangle read by rows: T(n,k) is the number of compositions of n into k parts x_1, x_2, ..., x_k such that gcd(x_i, x_j) = 1 for all i != j (where 1 <= k <= n).

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 2, 3, 1, 1, 4, 3, 4, 1, 1, 2, 9, 4, 5, 1, 1, 6, 3, 16, 5, 6, 1, 1, 4, 15, 4, 25, 6, 7, 1, 1, 6, 9, 28, 5, 36, 7, 8, 1, 1, 4, 21, 16, 45, 6, 49, 8, 9, 1, 1, 10, 9, 52, 25, 66, 7, 64, 9, 10, 1, 1, 4, 39, 16, 105, 36, 91, 8, 81, 10, 11, 1, 1, 12, 9, 100, 25, 186, 49, 120, 9, 100, 11, 12, 1, 1, 6, 45, 16, 205, 36, 301, 64, 153, 10, 121, 12, 13, 1
Offset: 1

Views

Author

N. J. A. Sloane, Mar 05 2017

Keywords

Comments

See A101391 for the triangle T(n,k) = number of compositions of n into k parts x_1, x_2, ..., x_k such that gcd(x_1,x_2,...,x_k) = 1 (2 <= k <= n).

Examples

			Triangle begins:
  1;
  1,  1;
  1,  2,  1;
  1,  2,  3,   1;
  1,  4,  3,   4,   1;
  1,  2,  9,   4,   5,   1;
  1,  6,  3,  16,   5,   6,  1;
  1,  4, 15,   4,  25,   6,  7,   1;
  1,  6,  9,  28,   5,  36,  7,   8,  1;
  1,  4, 21,  16,  45,   6, 49,   8,  9,   1;
  1, 10,  9,  52,  25,  66,  7,  64,  9,  10,  1;
  1,  4, 39,  16, 105,  36, 91,   8, 81,  10, 11,  1;
  1, 12,  9, 100,  25, 186, 49, 120,  9, 100, 11, 12, 1;
  ...
From _Gus Wiseman_, Nov 12 2020: (Start)
Row n = 6 counts the following compositions:
  (6)  (15)  (114)  (1113)  (11112)  (111111)
       (51)  (123)  (1131)  (11121)
             (132)  (1311)  (11211)
             (141)  (3111)  (12111)
             (213)          (21111)
             (231)
             (312)
             (321)
             (411)
(End)
		

Crossrefs

A072704 counts the unimodal instead of coprime version.
A087087 and A335235 rank these compositions.
A101268 gives row sums.
A101391 is the relatively prime instead of pairwise coprime version.
A282749 is the unordered version.
A000740 counts relatively prime compositions, with strict case A332004.
A007360 counts pairwise coprime or singleton strict partitions.
A051424 counts pairwise coprime or singleton partitions, ranked by A302569.
A097805 counts compositions by sum and length.
A178472 counts compositions with a common divisor.
A216652 and A072574 count strict compositions by sum and length.
A305713 counts pairwise coprime strict partitions.
A327516 counts pairwise coprime partitions, ranked by A302696.
A335235 ranks pairwise coprime or singleton compositions.
A337462 counts pairwise coprime compositions, ranked by A333227.
A337562 counts pairwise coprime or singleton strict compositions.
A337665 counts compositions whose distinct parts are pairwise coprime, ranked by A333228.

Programs

  • Mathematica
    Table[Length[Select[Join@@Permutations/@IntegerPartitions[n,{k}],Length[#]==1||CoprimeQ@@#&]],{n,10},{k,n}] (* Gus Wiseman, Nov 12 2020 *)

Formula

It seems that no general formula or recurrence is known, although Shonhiwa gives formulas for a few of the early diagonals.

A327400 Number of factorizations of n that are constant or whose factors are relatively prime.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Sep 22 2019

Keywords

Comments

First differs from A327399 at a(24) = 4, A327399(24) = 3.

Examples

			The factorizations of 2, 4, 12, 24, 30, 36, 48, and 60 that are constant or whose factors are relatively prime:
  2   4     12      24        30      36        48          60
      2*2   3*4     3*8       5*6     4*9       3*16        3*20
            2*2*3   2*3*4     2*15    6*6       2*3*8       4*15
                    2*2*2*3   3*10    2*2*9     3*4*4       5*12
                              2*3*5   2*3*6     2*2*3*4     2*5*6
                                      3*3*4     2*2*2*2*3   3*4*5
                                      2*2*3*3               2*2*15
                                                            2*3*10
                                                            2*2*3*5
		

Crossrefs

Constant factorizations are A089723.

Programs

  • Mathematica
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
    Table[Length[Select[facs[n],#=={}||Length[Union[#]]==1||GCD@@#==1&]],{n,100}]

Formula

a(n) = A281116(n) + A089723(n).

A327405 Quotient of n over the maximum divisor of n that is 1 or whose prime indices have a common divisor > 1.

Original entry on oeis.org

1, 2, 1, 4, 1, 2, 1, 8, 1, 2, 1, 4, 1, 2, 3, 16, 1, 2, 1, 4, 1, 2, 1, 8, 1, 2, 1, 4, 1, 6, 1, 32, 3, 2, 5, 4, 1, 2, 1, 8, 1, 2, 1, 4, 5, 2, 1, 16, 1, 2, 3, 4, 1, 2, 5, 8, 1, 2, 1, 12, 1, 2, 1, 64, 1, 6, 1, 4, 3, 10, 1, 8, 1, 2, 3, 4, 7, 2, 1, 16, 1, 2, 1, 4, 5
Offset: 1

Views

Author

Gus Wiseman, Sep 21 2019

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. Numbers whose prime indices have a common divisor > 1 are listed in A318978.

Examples

			The divisors of 90 that are 1 or whose prime indices have a common divisor > 1 are {1, 3, 5, 9}, so a(90) = 90/9 = 10.
		

Crossrefs

See link for additional cross-references.

Programs

  • Mathematica
    Table[n/Max[Select[Divisors[n],GCD@@PrimePi/@First/@FactorInteger[#]!=1&]],{n,100}]
  • PARI
    A327405(n) = (n / vecmax(select(d -> (1==d)||(gcd(apply(primepi,factor(d)[, 1]~))>1), divisors(n)))); \\ Antti Karttunen, Dec 06 2021

Formula

a(n) = n/A327656(n).

A327512 Maximum divisor of n that is 1, 2, or a nonprime number whose prime indices are pairwise coprime.

Original entry on oeis.org

1, 2, 1, 4, 1, 6, 1, 8, 1, 10, 1, 12, 1, 14, 15, 16, 1, 6, 1, 20, 1, 22, 1, 24, 1, 26, 1, 28, 1, 30, 1, 32, 33, 34, 35, 12, 1, 38, 1, 40, 1, 14, 1, 44, 15, 46, 1, 48, 1, 10, 51, 52, 1, 6, 55, 56, 1, 58, 1, 60, 1, 62, 1, 64, 1, 66, 1, 68, 69, 70, 1, 24, 1, 74
Offset: 1

Views

Author

Gus Wiseman, Sep 19 2019

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. Numbers that are 1, 2, or a nonprime number whose prime indices are pairwise coprime are listed in A302696, which is the union of this sequence.
a(n) is the greatest term of A302696 which divides n. - Antti Karttunen, Dec 06 2021

Examples

			The divisors of 72 that are 1, 2, or nonprime numbers whose prime indices are pairwise coprime are: {1, 2, 4, 6, 8, 12, 24}, so a(72) = 24.
		

Crossrefs

See link for additional cross-references.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Table[Max[Select[Divisors[n],#==1||CoprimeQ@@primeMS[#]&]],{n,100}]
  • PARI
    isA302696(n) = if(isprimepower(n),!(n%2), if(!issquarefree(n>>valuation(n,2)), 0, my(pis=apply(primepi,factor(n)[,1])); (lcm(pis)==factorback(pis))));
    A327512(n) = vecmax(select(isA302696,divisors(n))); \\ Antti Karttunen, Dec 06 2021

A327513 Number of divisors of n that are 1, 2, or a nonprime number whose prime indices are pairwise coprime.

Original entry on oeis.org

1, 2, 1, 3, 1, 3, 1, 4, 1, 3, 1, 5, 1, 3, 2, 5, 1, 3, 1, 5, 1, 3, 1, 7, 1, 3, 1, 5, 1, 6, 1, 6, 2, 3, 2, 5, 1, 3, 1, 7, 1, 4, 1, 5, 2, 3, 1, 9, 1, 3, 2, 5, 1, 3, 2, 7, 1, 3, 1, 10, 1, 3, 1, 7, 1, 6, 1, 5, 2, 6, 1, 7, 1, 3, 2, 5, 2, 4, 1, 9, 1, 3, 1, 7, 2, 3, 1, 7, 1, 6, 1, 5, 2, 3, 2, 11, 1, 3, 2, 5, 1, 6, 1, 7, 3
Offset: 1

Views

Author

Gus Wiseman, Sep 19 2019

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. Numbers that are 1, 2, or a nonprime number whose prime indices are pairwise coprime are listed in A302696.
Note that the maximum odd divisor of any entry must be squarefree.
Number of terms of A302696 that divide n. Put in other words, this sequence is the inverse Möbius transform of the characteristic function of A302696. - Antti Karttunen, Dec 06 2021

Examples

			The divisors of 72 that are 1, 2, or nonprime numbers whose prime indices are pairwise coprime are: {1, 2, 4, 6, 8, 12, 24}, so a(72) = 7.
		

Crossrefs

See link for additional cross-references.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Table[Length[Select[Divisors[n],#==1||CoprimeQ@@primeMS[#]&]],{n,100}]
  • PARI
    isA302696(n) = if(isprimepower(n),!(n%2), if(!issquarefree(n>>valuation(n,2)), 0, my(pis=apply(primepi,factor(n)[,1])); (lcm(pis)==factorback(pis))));
    A327513(n) = sumdiv(n,d,isA302696(d)); \\ Antti Karttunen, Dec 06 2021

Extensions

Data section extended up to 105 terms by Antti Karttunen, Dec 06 2021

A338316 Odd numbers whose distinct prime indices are pairwise coprime, where a singleton is always considered coprime.

Original entry on oeis.org

1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 23, 25, 27, 29, 31, 33, 35, 37, 41, 43, 45, 47, 49, 51, 53, 55, 59, 61, 67, 69, 71, 73, 75, 77, 79, 81, 83, 85, 89, 93, 95, 97, 99, 101, 103, 107, 109, 113, 119, 121, 123, 125, 127, 131, 135, 137, 139, 141, 143, 145, 149, 151
Offset: 1

Views

Author

Gus Wiseman, Oct 24 2020

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 Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions. a(n) gives the n-th Heinz number of an integer partition with no 1's and pairwise coprime distinct parts, where a singleton is always considered coprime (A338317).

Examples

			The sequence of terms together with their prime indices begins:
      1: {}          33: {2,5}       71: {20}
      3: {2}         35: {3,4}       73: {21}
      5: {3}         37: {12}        75: {2,3,3}
      7: {4}         41: {13}        77: {4,5}
      9: {2,2}       43: {14}        79: {22}
     11: {5}         45: {2,2,3}     81: {2,2,2,2}
     13: {6}         47: {15}        83: {23}
     15: {2,3}       49: {4,4}       85: {3,7}
     17: {7}         51: {2,7}       89: {24}
     19: {8}         53: {16}        93: {2,11}
     23: {9}         55: {3,5}       95: {3,8}
     25: {3,3}       59: {17}        97: {25}
     27: {2,2,2}     61: {18}        99: {2,2,5}
     29: {10}        67: {19}       101: {26}
     31: {11}        69: {2,9}      103: {27}
		

Crossrefs

A338315 does not consider singletons coprime, with Heinz numbers A337987.
A338317 counts the partitions with these Heinz numbers.
A337694 is a pairwise non-coprime instead of pairwise coprime version.
A007359 counts singleton or pairwise coprime partitions with no 1's, with Heinz numbers A302568.
A101268 counts pairwise coprime or singleton compositions, ranked by A335235.
A302797 lists squarefree numbers whose distinct parts are pairwise coprime.
A304709 counts partitions whose distinct parts are pairwise coprime, with Heinz numbers A304711.
A327516 counts pairwise coprime partitions, ranked by A302696.
A337485 counts pairwise coprime partitions with no 1's, with Heinz numbers A337984.
A337561 counts pairwise coprime strict compositions.
A337665 counts compositions whose distinct parts are pairwise coprime, ranked by A333228.
A337697 counts pairwise coprime compositions with no 1's.

Programs

  • Mathematica
    Select[Range[1,100,2],#==1||PrimePowerQ[#]||CoprimeQ@@Union[PrimePi/@First/@FactorInteger[#]]&]

A338317 Number of integer partitions of n with no 1's and pairwise coprime distinct parts, where a singleton is always considered coprime.

Original entry on oeis.org

1, 0, 1, 1, 2, 2, 3, 4, 5, 6, 7, 11, 11, 16, 16, 19, 25, 32, 34, 44, 46, 53, 66, 80, 88, 101, 116, 132, 150, 180, 204, 229, 254, 287, 331, 366, 426, 473, 525, 584, 662, 742, 835, 922, 1013, 1128, 1262, 1408, 1555, 1711, 1894, 2080, 2297, 2555, 2806, 3064, 3376
Offset: 0

Views

Author

Gus Wiseman, Oct 24 2020

Keywords

Examples

			The a(2) = 1 through a(12) = 11 partitions (A = 10, B = 11, C = 12):
  2   3   4    5    6     7     8      9      A       B       C
          22   32   33    43    44     54     55      65      66
                    222   52    53     72     73      74      75
                          322   332    333    433     83      444
                                2222   522    532     92      543
                                       3222   3322    443     552
                                              22222   533     732
                                                      722     3333
                                                      3332    5322
                                                      5222    33222
                                                      32222   222222
		

Crossrefs

A007359 (A302568) gives the strict case.
A101268 (A335235) gives pairwise coprime or singleton compositions.
A200976 (A338318) gives the pairwise non-coprime instead of coprime version.
A304709 (A304711) gives partitions whose distinct parts are pairwise coprime, with strict case A305713 (A302797).
A304712 (A338331) allows 1's, with strict version A007360 (A302798).
A327516 (A302696) gives pairwise coprime partitions.
A328673 (A328867) gives partitions with no distinct relatively prime parts.
A338315 (A337987) does not consider singletons coprime.
A338317 (A338316) gives these partitions.
A337462 (A333227) gives pairwise coprime compositions.
A337485 (A337984) gives pairwise coprime integer partitions with no 1's.
A337665 (A333228) gives compositions with pairwise coprime distinct parts.
A337667 (A337666) gives pairwise non-coprime compositions.
A337697 (A022340 /\ A333227) = pairwise coprime compositions with no 1's.
A337983 (A337696) gives pairwise non-coprime strict compositions, with unordered version A318717 (A318719).

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],!MemberQ[#,1]&&(SameQ@@#||CoprimeQ@@Union[#])&]],{n,0,15}]

Formula

The Heinz numbers of these partitions are given by A338316. The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions.

A338468 Odd squarefree numbers whose prime indices have no common divisor > 1.

Original entry on oeis.org

15, 33, 35, 51, 55, 69, 77, 85, 93, 95, 105, 119, 123, 141, 143, 145, 155, 161, 165, 177, 187, 195, 201, 205, 209, 215, 217, 219, 221, 231, 249, 253, 255, 265, 285, 287, 291, 295, 309, 323, 327, 329, 335, 341, 345, 355, 357, 381, 385, 391, 395, 403, 407, 411
Offset: 1

Views

Author

Gus Wiseman, Oct 29 2020

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.
Also Heinz numbers of relatively prime strict integer partitions with no 1's (A337452). The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions.

Examples

			The sequence of terms together with their prime indices begins:
     15: {2,3}      145: {3,10}     249: {2,23}     355: {3,20}
     33: {2,5}      155: {3,11}     253: {5,9}      357: {2,4,7}
     35: {3,4}      161: {4,9}      255: {2,3,7}    381: {2,31}
     51: {2,7}      165: {2,3,5}    265: {3,16}     385: {3,4,5}
     55: {3,5}      177: {2,17}     285: {2,3,8}    391: {7,9}
     69: {2,9}      187: {5,7}      287: {4,13}     395: {3,22}
     77: {4,5}      195: {2,3,6}    291: {2,25}     403: {6,11}
     85: {3,7}      201: {2,19}     295: {3,17}     407: {5,12}
     93: {2,11}     205: {3,13}     309: {2,27}     411: {2,33}
     95: {3,8}      209: {5,8}      323: {7,8}      413: {4,17}
    105: {2,3,4}    215: {3,14}     327: {2,29}     415: {3,23}
    119: {4,7}      217: {4,11}     329: {4,15}     429: {2,5,6}
    123: {2,13}     219: {2,21}     335: {3,19}     435: {2,3,10}
    141: {2,15}     221: {6,7}      341: {5,11}     437: {8,9}
    143: {5,6}      231: {2,4,5}    345: {2,3,9}    447: {2,35}
		

Crossrefs

A302568 is the prime or pairwise coprime version, counted by A007359.
A302697 is not required to be squarefree, counted by A302698 (ordered version: A337450).
A302796 allows evens, counted by A078374 (ordered version: A332004).
A337452 counts partitions with these Heinz numbers (ordered version: A337451).
A337984 is the pairwise coprime version, counted by A337485 (ordered version: A337697).
A005117 lists squarefree numbers.
A005408 lists odd numbers.
A056911 lists odd squarefree numbers.
A289509 lists Heinz numbers of relatively prime partitions, counted by A000837 (ordered version: A000740).

Programs

  • Mathematica
    Select[Range[1,100,2],SquareFreeQ[#]&&GCD@@PrimePi/@First/@FactorInteger[#]==1&]

A338552 Non-powers of primes whose prime indices have a common divisor > 1.

Original entry on oeis.org

21, 39, 57, 63, 65, 87, 91, 111, 115, 117, 129, 133, 147, 159, 171, 183, 185, 189, 203, 213, 235, 237, 247, 259, 261, 267, 273, 299, 301, 303, 305, 319, 321, 325, 333, 339, 351, 365, 371, 377, 387, 393, 399, 417, 427, 441, 445, 453, 477, 481, 489, 497, 507
Offset: 1

Views

Author

Gus Wiseman, Nov 03 2020

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.
Also Heinz numbers of non-constant, non-relatively prime partitions. The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions.

Examples

			The sequence of terms together with their prime indices begins:
     21: {2,4}      183: {2,18}       305: {3,18}
     39: {2,6}      185: {3,12}       319: {5,10}
     57: {2,8}      189: {2,2,2,4}    321: {2,28}
     63: {2,2,4}    203: {4,10}       325: {3,3,6}
     65: {3,6}      213: {2,20}       333: {2,2,12}
     87: {2,10}     235: {3,15}       339: {2,30}
     91: {4,6}      237: {2,22}       351: {2,2,2,6}
    111: {2,12}     247: {6,8}        365: {3,21}
    115: {3,9}      259: {4,12}       371: {4,16}
    117: {2,2,6}    261: {2,2,10}     377: {6,10}
    129: {2,14}     267: {2,24}       387: {2,2,14}
    133: {4,8}      273: {2,4,6}      393: {2,32}
    147: {2,4,4}    299: {6,9}        399: {2,4,8}
    159: {2,16}     301: {4,14}       417: {2,34}
    171: {2,2,8}    303: {2,26}       427: {4,18}
		

Crossrefs

A318978 allows prime powers, counted by A018783, with complement A289509.
A327685 allows nonprime prime powers.
A338330 is the coprime instead of relatively prime version.
A338554 counts the partitions with these Heinz numbers.
A338555 is the complement.
A000740 counts relatively prime compositions.
A000961 lists powers of primes, with complement A024619.
A051424 counts pairwise coprime or singleton partitions.
A108572 counts nontrivial periodic partitions, with Heinz numbers A001597.
A291166 ranks relatively prime compositions, with complement A291165.
A302696 gives the Heinz numbers of pairwise coprime partitions.
A327516 counts pairwise coprime partitions, with Heinz numbers A302696.

Programs

  • Mathematica
    Select[Range[100],!(#==1||PrimePowerQ[#]||GCD@@PrimePi/@First/@FactorInteger[#]==1)&]

Formula

Equals A024619 /\ A318978.
Complement of A000961 \/ A289509.

A338555 Numbers that are either a power of a prime or have relatively prime prime indices.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 58, 59, 60, 61, 62, 64, 66, 67, 68, 69, 70, 71, 72
Offset: 1

Views

Author

Gus Wiseman, Nov 03 2020

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.
Also Heinz numbers of partitions either constant or relatively prime (A338553). The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions.

Crossrefs

A327534 uses primes instead of prime powers.
A338331 is the pairwise coprime version, with complement A338330.
A338552 is the complement.
A338553 counts the partitions with these Heinz numbers.
A000837 counts relatively prime partitions, with Heinz numbers A289509.
A000961 lists powers of primes.
A018783 counts partitions whose prime indices are not relatively prime, with Heinz numbers A318978.
A051424 counts pairwise coprime or singleton partitions.
A291166 ranks relatively prime compositions, with complement A291165.
A327516 counts pairwise coprime partitions, with Heinz numbers A302696.

Programs

  • Mathematica
    Select[Range[100],#==1||PrimePowerQ[#]||GCD@@PrimePi/@First/@FactorInteger[#]==1&]

Formula

Equals A000961 \/ A289509.
Complement of A024619 /\ A318978.
Previous Showing 51-60 of 75 results. Next