%I A059408
%S A059408 13,22,34,50,70,95,126,165,213,272,341,424,524,640,778,938,1127,1345,
%T A059408 1596,1886,2217,2596,3031,3523,4086,4724,5445,6259,7176,8205,9364,
%U A059408 10666,12118,13744,15560,17583,19827,22328,25099,28171,31569,35334
%N A059408 a(n+1) = a(n)-th composite and a(1) = 13.
%t A059408 g[ n_Integer ] := (k = n + PrimePi[ n ] + 1; While[ k - PrimePi[ k ] 
               - 1, k++ ]; k); NestList[ g, 13, 45 ]
%Y A059408 Cf. A006508.
%Y A059408 Sequence in context: A158998 A122559 A132131 this_sequence A164455 A164504 
               A164413
%Y A059408 Adjacent sequences: A059405 A059406 A059407 this_sequence A059409 A059410 
               A059411
%K A059408 nonn
%O A059408 1,1
%A A059408 Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 29 2001