%I A007821
%S A007821 2,7,13,19,23,29,37,43,47,53,61,71,73,79,89,97,101,103,107,113,131,
%T A007821 137,139,149,151,163,167,173,181,193,197,199,223,227,229,233,239,
%U A007821 251,257,263,269,271,281,293,307,311,313,317,337,347,349,359,373
%N A007821 Primes p(n) where n runs through the nonprimes.
%C A007821 A137588(a(n)) = n; a(n) = A000040(A018252(n)). - Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), 
               Jan 28 2008
%C A007821 a(n)=prime(nonprime(n)); A000040 = A007821 U A006450. - Juri-Stepan Gerasimov 
               (2stepan(AT)rambler.ru), Sep 24 2009
%D A007821 C. Kimberling, Fractal sequences and interspersions, Ars Combinatoria, 
               vol. 45 p 157 1997.
%H A007821 R. Zumkeller, <a href="b007821.txt">Table of n, a(n) for n = 1..1000</
               a>
%H A007821 N. Fernandez, <a href="http://www.borve.org/primeness/FOP.html">An order 
               of primeness, F(p)</a>
%p A007821 A007821 := proc(n) if isprime(n) = false then ithprime(n) fi end;
%t A007821 Prime[ Select[ Range[75], !PrimeQ[ # ] &]] (from Robert G. Wilson v Mar 
               15 2004)
%Y A007821 Cf. A049076, A049078, A049079, A049080, A049081, A058322, A058324, A058325, 
               A058326, A058327, A058328, A093046, A006450.
%Y A007821 Sequence in context: A019370 A001966 A155547 this_sequence A156007 A067774 
               A063637
%Y A007821 Adjacent sequences: A007818 A007819 A007820 this_sequence A007822 A007823 
               A007824
%K A007821 nonn
%O A007821 1,1
%A A007821 mzerger(AT)cc4.adams.edu (Monte J. Zerger), Clark Kimberling (ck6(AT)evansville.edu)