%I A102617
%S A102617 2,19,29,43,47,53,71,79,89,97,103,113,131,137,149,151,163,167,173,193,
%T A102617 199,223,227,229,233,251,257,263,271,293,307,311,317,337,347,349,359,
%U A102617 379,383,389,397,409,421,439,443,449,457,463,479,487,491,503,523,541
%N A102617 Primes p(n) such that n is a second order nonprime number.
%e A102617 Nonprime(4) = 8.
%e A102617 The 8-th prime is 19, the second entry.
%t A102617 nonPrime[n_Integer] := FixedPoint[n + PrimePi[ # ] &, n]; Prime /@ nonPrime 
               /@ nonPrime /@ Range[54] (from Robert G. Wilson v Feb 04 2005)
%o A102617 (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) }
%Y A102617 Sequence in context: A004023 A031030 A083689 this_sequence A120276 A006962 
               A090819
%Y A102617 Adjacent sequences: A102614 A102615 A102616 this_sequence A102618 A102619 
               A102620
%K A102617 nonn
%O A102617 1,1
%A A102617 Cino Hilliard (hillcino368(AT)gmail.com), Jan 31 2005
%E A102617 Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 04 2005