|
| |
|
|
A102617
|
|
Primes p(n) such that n is a second order nonprime number.
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| Nonprime(4) = 8.
The 8-th prime is 19, the second entry.
|
|
|
MATHEMATICA
| nonPrime[n_Integer] := FixedPoint[n + PrimePi[ # ] &, n]; Prime /@ nonPrime /@ nonPrime /@ Range[54] (from Robert G. Wilson v Feb 04 2005)
|
|
|
PROG
| (PARI) \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) }
|
|
|
CROSSREFS
| Sequence in context: A186682 A031030 A083689 * A120276 A006962 A090819
Adjacent sequences: A102614 A102615 A102616 * A102618 A102619 A102620
|
|
|
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
|
| |
|
|
