|
Search: id:A102616
|
|
|
| A102616 |
|
Nonprime numbers of order 3. |
|
+0
1
|
|
| 1, 14, 16, 22, 24, 25, 30, 33, 35, 36, 39, 44, 46, 48, 50, 51, 54, 55, 56, 62, 64, 66, 68, 69, 70, 75, 76, 77, 80, 85, 86, 87, 90, 92, 93, 94, 96, 100, 102, 104, 105, 108, 111, 115, 116, 117, 118, 120, 122, 123, 124, 126, 130, 132, 134, 136, 138, 142, 144, 145, 148, 150
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
nps(n,1) -> list nonprime(n) or the sequence of nonprime numbers. nps(n,2) -> list nonprime(nonprime(n)) or nps of order 2. nps(n,3) -> list nonprime(nonprime(nonprime(n))) or npcs of order 3 ..... The order is the number of nestings - 1.
|
|
EXAMPLE
|
Nonprime(2) = 4.
Nonprime(4) = 8.
Nonprime(8) = 14 the 2-nd entry.
|
|
MATHEMATICA
|
nonPrime[n_] := FixedPoint[n + PrimePi[ # ] &, n]; Nest[ nonPrime, Range[62], 3] (from Robert G. Wilson v Feb 04 2005)
|
|
PROGRAM
|
(PARI) \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) }
|
|
CROSSREFS
|
Cf. A018252, A102615.
Sequence in context: A007935 A076055 A068653 this_sequence A076023 A163629 A067844
Adjacent sequences: A102613 A102614 A102615 this_sequence A102617 A102618 A102619
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Cino Hilliard (hillcino368(AT)gmail.com), Jan 31 2005
|
|
EXTENSIONS
|
Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 04 2005
|
|
|
Search completed in 0.002 seconds
|
