|
%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
|
