A007821 -id:A007821 - cp's OEIS frontend

A058328 Primes for which A049076(p) = 12.

9737333, 16123689073, 175650481151, 592821132889, 963726515729, 1765037224331, 3809491708961, 5669795882633, 6947574946087, 9163611272327, 12695664159413, 19638537755027, 20909033866927, 24894639811901

Offset: 1

Robert G. Wilson v, Dec 12 2000

nonn

N. Fernandez, An order of primeness, F(p)
N. Fernandez, An order of primeness [cached copy, included with permission of the author]

Cf. A049076, A007821, A049078, A049079, A049080, A049081, A058322, A058324, A058325, A058326, A058327, A093046, A006450.

Nest[ Prime, Select[ Range[30], !PrimeQ[ # ] &], 11] (* Robert G. Wilson v, Mar 15 2004 *)

a(n) = A000040(A058327(n)). - R. J. Mathar, Jul 07 2012

A093046 Primes for which A049076(p) = 13.

Original entry on oeis.org

174440041, 414507281407, 4952019383323, 17461204521323, 28871271685163, 53982894593057, 119543903707171, 180252380737439, 222334565193649, 295872998567819, 414190707114539, 649544694886663, 692919372869953, 829484152743469, 1111923751842437, 1335294947809661, 1532021237514419, 1635795965187779

Offset: 1

Robert G. Wilson v, Mar 15 2000

nonn

N. Fernandez, An order of primeness, F(p)
N. Fernandez, An order of primeness [cached copy, included with permission of the author]

Cf. A049076, A007821, A049078, A049079, A049080, A049081, A058322, A058324, A058325, A058326, A058327, A058328, A006450.

Nest[ Prime, Select[ Range[30], !PrimeQ[ # ] &], 12]

a(n) = A000040(A058328(n)). - R. J. Mathar, Jul 07 2012

a(7)-a(9) from Robert G. Wilson v, Dec 27 2005

a(10)-a(18) from Robert G. Wilson v, Mar 08 2017 using Kim Walisch's primecount.

A331386 Numbers with at least one prime prime index.

Original entry on oeis.org

3, 5, 6, 9, 10, 11, 12, 15, 17, 18, 20, 21, 22, 24, 25, 27, 30, 31, 33, 34, 35, 36, 39, 40, 41, 42, 44, 45, 48, 50, 51, 54, 55, 57, 59, 60, 62, 63, 65, 66, 67, 68, 69, 70, 72, 75, 77, 78, 80, 81, 82, 83, 84, 85, 87, 88, 90, 93, 95, 96, 99, 100, 102, 105, 108

Offset: 1

Gus Wiseman, Jan 17 2020

nonn

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 asymptotic density of this sequence is 1 - Product_{p in A006450} (1 - 1/p) = 1 - 1/(Sum_{n>=1} 1/A076610(n)) > 2/3. - Amiram Eldar, Feb 02 2021

			The sequence of terms together with their prime indices begins:
    3: {2}
    5: {3}
    6: {1,2}
    9: {2,2}
   10: {1,3}
   11: {5}
   12: {1,1,2}
   15: {2,3}
   17: {7}
   18: {1,2,2}
   20: {1,1,3}
   21: {2,4}
   22: {1,5}
   24: {1,1,1,2}
   25: {3,3}
   27: {2,2,2}
   30: {1,2,3}
   31: {11}
   33: {2,5}
   34: {1,7}

Amiram Eldar, Table of n, a(n) for n = 1..10000

Complement of A320628.
Positions of terms > 0 in A257994.
Positions of terms > 1 in A295665.
Primes of prime index are A006450.
Primes of nonprime index are A007821.
Products of primes of prime index are A076610.
Products of primes of nonprime index are A320628.
The number of nonprime prime indices is given by A330944.
Cf. A000040, A000720, A001222, A018252, A056239, A076610, A112798, A302242, A320633, A330943, A330944, A330947, A330949.

Select[Range[100],MemberQ[FactorInteger[#],{?(PrimeQ@*PrimePi),}]&]

A257994(a(n)) > 0.

A102615 Nonprime numbers of order 2.

Original entry on oeis.org

1, 8, 10, 14, 15, 16, 20, 22, 24, 25, 27, 30, 32, 33, 35, 36, 38, 39, 40, 44, 46, 48, 49, 50, 51, 54, 55, 56, 58, 62, 63, 64, 66, 68, 69, 70, 72, 75, 76, 77, 78, 80, 82, 85, 86, 87, 88, 90, 92, 93, 94, 96, 99, 100, 102, 104, 105, 108, 110, 111, 114, 115, 116, 117, 118, 120

Offset: 1

Cino Hilliard, Jan 31 2005

nonn

nps(n,0) -> list nonprime(n) or the sequence of nonprime numbers. nps(n,1) -> list nonprime(nonprime(n)) or nps of order 1 nps(n,2) -> list nonprime(nonprime(nonprime(n))) or nps of order 2 ..... The order is the number of nestings - 1. We avoid the nestings in the script with a loop.

Nonprimes (A018252) with nonprime (A018252) subscripts. a(n) U A078782(n) = A018252(n), a(n+1) U A175250(n) = A018252(n) for n >= 1. a(n) = nonprime(nonprime(n)) = A018252(A018252(n)). a(4) = 14 because a(4) = b(b(4)) = b(8) = 14, b = nonprime. a(1) = 1, a(n) = nonprimes (A018252) with composite (A002808) subscripts for n >=2. [Jaroslav Krizek, Mar 13 2010]

			Nonprime(2) = 4.
Nonprime(4) = 8 the second entry.

Cf. A018252.

Let A = primes A000040, B = nonprimes A018252. The 2-level compounds are AA = A006450, AB = A007821, BA = A078782, BB = A102615. The 3-level compounds AAA, AAB, ..., BBB are A038580, A049078, A270792, A102617, A270794, A270796, A102216.

# For Maple code for the prime/nonprime compound sequences (listed in cross-references) see A003622.  - N. J. A. Sloane, Mar 30 2016

nonPrime[n_] := FixedPoint[n + PrimePi[ # ] &, n]; Nest[nonPrime, Range[66], 2] (* Robert G. Wilson v, Feb 04 2005 *)

\We perform nesting(s) with a loop. cics(n,m) = { local(x,y,z); for(x=1,n, z=x; for(y=1,m+1, z=composite(z); ); print1(z",") ) } composite(n) = \ The n-th composite number. 1 is defined as a composite number. { local(c,x); c=1; x=0; while(c <= n, x++; if(!isprime(x),c++); ); return(x) }

Edited by Robert G. Wilson v, Feb 04 2005

A078782 Nonprimes (A018252) with prime (A000040) subscripts.

Original entry on oeis.org

4, 6, 9, 12, 18, 21, 26, 28, 34, 42, 45, 52, 57, 60, 65, 74, 81, 84, 91, 95, 98, 106, 112, 119, 128, 133, 135, 141, 143, 147, 165, 170, 177, 180, 192, 195, 203, 209, 214, 220, 228, 231, 244, 246, 250, 253, 267, 284, 288, 290, 295, 301, 303, 316, 323, 329, 336

Offset: 1

Joseph L. Pe, Jan 09 2003

a(n) = A018252(A000040(n)). Subsequence of A175250 (nonprimes (A018252) with noncomposite (A008578) subscripts), a(n) = A175250(n+1). a(n) U A102615(n) = A018252(n). [From Jaroslav Krizek, Mar 13 2010]

			a(4) = nonprime(prime(4)) = nonprime(7) = 12.

Let A = primes A000040, B = nonprimes A018252. The 2-level compounds are AA = A006450, AB = A007821, BA = A078782, BB = A102615. The 3-level compounds AAA, AAB, ..., BBB are A038580, A049078, A270792, A102617, A270794, A270796, A102216.

from sympy import prime, composite
def A078782(n): return composite(prime(n)-1) # Chai Wah Wu, Nov 13 2024

Corrected by Jaroslav Krizek, Mar 13 2010

A339112 Products of primes of semiprime index (A106349).

Original entry on oeis.org

1, 7, 13, 23, 29, 43, 47, 49, 73, 79, 91, 97, 101, 137, 139, 149, 161, 163, 167, 169, 199, 203, 227, 233, 257, 269, 271, 293, 299, 301, 313, 329, 343, 347, 373, 377, 389, 421, 439, 443, 449, 467, 487, 491, 499, 511, 529, 553, 559, 577, 607, 611, 631, 637, 647

Offset: 1

Gus Wiseman, Mar 12 2021

nonn

A semiprime (A001358) is a product of any two prime numbers.

Also MM-numbers of labeled multigraphs with loops (without uncovered vertices). 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 multiset of multisets with MM-number n is formed by taking the multiset of prime indices of each part of the multiset of prime indices of n. For example, the prime indices of 78 are {1,2,6}, so the multiset of multisets with MM-number 78 is {{},{1},{1,2}}.

			The sequence of terms together with the corresponding multigraphs begins (A..F = 10..15):
     1:            149:   (34)     313:     (36)
     7:   (11)     161: (11)(22)   329:   (11)(23)
    13:   (12)     163:   (18)     343: (11)(11)(11)
    23:   (22)     167:   (26)     347:     (29)
    29:   (13)     169: (12)(12)   373:     (1C)
    43:   (14)     199:   (19)     377:   (12)(13)
    47:   (23)     203: (11)(13)   389:     (45)
    49: (11)(11)   227:   (44)     421:     (1D)
    73:   (24)     233:   (27)     439:     (37)
    79:   (15)     257:   (35)     443:     (1E)
    91: (11)(12)   269:   (28)     449:     (2A)
    97:   (33)     271:   (1A)     467:     (46)
   101:   (16)     293:   (1B)     487:     (2B)
   137:   (25)     299: (12)(22)   491:     (1F)
   139:   (17)     301: (11)(14)   499:     (38)

Robert Israel, Table of n, a(n) for n = 1..10000

These primes (of semiprime index) are listed by A106349.
The strict (squarefree) case is A340020.
The prime instead of semiprime version:
  primes: A006450
  products: A076610
  strict: A302590
The nonprime instead of semiprime version:
  primes: A007821
  products: A320628
  odd: A320629
  strict: A340104
  odd strict: A340105
The squarefree semiprime instead of semiprime version:
  strict: A309356
  primes: A322551
  products: A339113
A001358 lists semiprimes, with odd and even terms A046315 and A100484.
A006881 lists squarefree semiprimes.
A037143 lists primes and semiprimes (and 1).
A056239 gives the sum of prime indices, which are listed by A112798.
A084126 and A084127 give the prime factors of semiprimes.
A101048 counts partitions into semiprimes.
A302242 is the weight of the multiset of multisets with MM-number n.
A305079 is the number of connected components for MM-number n.
A320892 lists even-omega non-products of distinct semiprimes.
A320911 lists products of squarefree semiprimes (Heinz numbers of A338914).
A320912 lists products of distinct semiprimes (Heinz numbers of A338916).
A338898, A338912, and A338913 give the prime indices of semiprimes.
MM-numbers: A255397 (normal), A302478 (set multisystems), A320630 (set multipartitions), A302494 (sets of sets), A305078 (connected), A316476 (antichains), A318991 (chains), A320456 (covers), A328514 (connected sets of sets), A329559 (clutters), A340019 (half-loop graphs).
Cf. A000040, A000720, A001055, A001222, A003963, A005117, A007097, A289509, A320461.

N:= 1000: # for terms up to N
SP:= {}: p:= 1:
for i from 1 do
  p:= nextprime(p);
  if 2*p > N then break fi;
  Q:= map(t -> p*t, select(isprime, {2,seq(i,i=3..min(p,N/p),2)}));
  SP:= SP union Q;
od:
SP:= sort(convert(SP,list)):
PSP:= map(ithprime,SP):
R:= {1}:
for p in PSP do
  Rp:= {}:
  for k from 1 while p^k <= N do
    Rpk:= select(`<=`,R, N/p^k);
    Rp:= Rp union map(`*`,Rpk, p^k);
  od;
  R:= R union Rp;
od:
sort(convert(R,list)); # Robert Israel, Nov 03 2024

semiQ[n_]:=PrimeOmega[n]==2;
Select[Range[100],FreeQ[If[#==1,{},FactorInteger[#]],{p_,k_}/;!semiQ[PrimePi[p]]]&]

A058325 Primes for which A049076(p) = 9.

Original entry on oeis.org

5381, 2269733, 17624813, 50728129, 77557187, 131807699, 259336153, 368345293, 440817757, 563167303, 751783477, 1107276647, 1170710369, 1367161723, 1760768239, 2062666783, 2323114841, 2458721501, 2621760397, 2860139341

Offset: 1

Robert G. Wilson v, Dec 12 2000

nonn

N. Fernandez, An order of primeness, F(p)
N. Fernandez, An order of primeness [cached copy, included with permission of the author]

Cf. A049076, A007821, A049078, A049079, A049080, A049081, A058322, A058324, A058326, A058327, A058328, A093046, A006450.

Nest[ Prime, Select[ Range[30], !PrimeQ[ # ] &], 8] (* Robert G. Wilson v, Mar 15 2004 *)

a(n) = A000040(A058324(n)). - R. J. Mathar, Jul 07 2012

A058326 Primes for which A049076(p) = 10.

Original entry on oeis.org

52711, 37139213, 326851121, 997525853, 1559861749, 2724711961, 5545806481, 8012791231, 9672485827, 12501968177, 16917026909, 25366202179, 26887732891, 31621854169, 41192432219, 48596930311, 55022031709, 58379844161

Offset: 1

Robert G. Wilson v, Dec 12 2000

nonn

N. Fernandez, An order of primeness, F(p)N. Fernandez, An order of primeness [cached copy, included with permission of the author]

Cf. A049076, A007821, A049078, A049079, A049080, A049081, A058322, A058324, A058325, A058327, A058328, A093046, A006450.

Nest[ Prime, Select[ Range[30], !PrimeQ[ # ] &], 9] (* Robert G. Wilson v, Mar 15 2004 *)

a(n) = A000040(A058325(n)). - R. J. Mathar, Jul 07 2012

A058327 Primes for which A049076(p) = 11.

Original entry on oeis.org

648391, 718064159, 7069067389, 22742734291, 36294260117, 64988430769, 136395369829, 200147986693, 243504973489, 318083817907, 435748987787, 664090238153, 705555301183, 835122557939, 1099216100167, 1305164025929

Offset: 1

Robert G. Wilson v, Dec 12 2000

nonn

N. Fernandez, An order of primeness, F(p)
N. Fernandez, An order of primeness [cached copy, included with permission of the author]

Cf. A049076, A007821, A049078, A049079, A049080, A049081, A058322, A058324, A058325, A058326, A058328, A093046, A006450.

Nest[ Prime, Select[ Range[30], !PrimeQ[ # ] &], 10] (* Robert G. Wilson v, Mar 15 2004 *)

a(n) = A000040(A058326(n)). - R. J. Mathar, Jul 07 2012

A102617 Primes p(n) such that n is a second-order nonprime number.

Original entry on oeis.org

2, 19, 29, 43, 47, 53, 71, 79, 89, 97, 103, 113, 131, 137, 149, 151, 163, 167, 173, 193, 199, 223, 227, 229, 233, 251, 257, 263, 271, 293, 307, 311, 317, 337, 347, 349, 359, 379, 383, 389, 397, 409, 421, 439, 443, 449, 457, 463, 479, 487, 491, 503, 523, 541

Offset: 1

Cino Hilliard, Jan 31 2005

nonn

The prime/nonprime compound sequence ABB. - N. J. A. Sloane, Apr 06 2016

			Nonprime(4) = 8.
The 8th prime is 19, the second entry.

Let A = primes A000040, B = nonprimes A018252. The 2-level compounds are AA = A006450, AB = A007821, BA = A078782, BB = A102615. The 3-level compounds AAA, AAB, ..., BBB are A038580, A049078, A270792, A102617, A270794, A270796, A102216.

For Maple code for the prime/nonprime compound sequences (listed in cross-references) see A003622. - N. J. A. Sloane, Mar 30 2016

nonPrime[n_Integer] := FixedPoint[n + PrimePi[ # ] &, n]; Prime /@ nonPrime /@ nonPrime /@ Range[54] (* Robert G. Wilson v, Feb 04 2005 *)

\We perform nesting(s) with a loop. cips(n,m) = { local(x,y,z); for(x=1,n, z=x; for(y=1,m+1, z=composite(z); ); print1(prime(z)",") ) } composite(n) = \ The n-th composite number. 1 is defined as a composite number. { local(c,x); c=1; x=0; while(c <= n, x++; if(!isprime(x),c++); ); return(x) }

Edited by Robert G. Wilson v, Feb 04 2005

cp's OEIS Frontend

A058328 Primes for which A049076(p) = 12.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A093046 Primes for which A049076(p) = 13.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A331386 Numbers with at least one prime prime index.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A102615 Nonprime numbers of order 2.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Maple

Mathematica

PARI

Extensions

A078782 Nonprimes (A018252) with prime (A000040) subscripts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Python

Extensions

A339112 Products of primes of semiprime index (A106349).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A058325 Primes for which A049076(p) = 9.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A058326 Primes for which A049076(p) = 10.

Views

Author

Keywords

Links

Crossrefs

Programs