%I #13 Jun 21 2019 12:08:55
%S 4,12,25,39,60,94,133,183,236,320,415,520,640,805,1007,1212,1463,1800,
%T 2144,2562,3021,3523,4135,4840,5747,6630,7701,9057,10392,11812,13519,
%U 15400,17534,19827,22564,25624,29206,32998,37041,41819,46659,53223,59345,66104,73368,81897,91157,100827,112045
%N a(n) is obtained by applying the map k -> composite(k) n times, starting at n.
%e a(3) is 25 because the third composite is 8, the eighth composite is 15, and for the 3rd iteration, the fifteenth composite is 25.
%e To get a(4): 4 -> 9 -> 16 -> 26 -> 39.
%t c = Select[Range[10^6], CompositeQ]; Table[Nest[c[[#]] &, n, n], {n, 50}] (* _Michael De Vlieger_, Dec 31 2016 *)
%Y Cf. A002808.
%Y For primes, see A058009.
%K nonn
%O 1,1
%A _Matthew Campbell_, Dec 31 2016
%E More terms from _Michael De Vlieger_, Dec 31 2016