login
a(n) is obtained by applying the map k -> composite(k) n times, starting at n.
2

%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