%I #5 Apr 21 2018 17:32:04

%S 4,10,38,164,760,3634,17653,86542,426510,2109602,10458654,51938515,

%T 258246036,1285227649,6400837884,31896080698,159013169263,

%U 793026358830,3956152086139,19740921224246,98526658283206,491833651069513,2455555405866035,12261373736046802

%N The (5^n)-th composite number.

%t Composite[n_Integer] := Block[ {k = n + PrimePi[n] + 1 }, While[ k != n + PrimePi[k] + 1, k = n + PrimePi[k] + 1]; Return[ k ]]; Table[ Composite[5^n], {n, 0, 18} ]

%K nonn

%O 0,1

%A _Robert G. Wilson v_, Nov 27 2001

%E a(19)-a(23) from _Chai Wah Wu_, Apr 21 2018