%I #5 May 05 2019 11:38:28
%S 10,21,62,247,1202,7201,50401,403201,3628801,36288001,399168002,
%T 4790016001,62270208001,871782912007,130767436800017,209227898880001,
%U 3556874280960001,64023737057280001,12164510040883200031
%N Smallest semiprime with same leading digits as n!.
%t ssp[n_]:=Module[{f=n!,k=0},While[PrimeOmega[10^Max[IntegerLength[k],1] f+k]!=2,k++];10^Max[1,IntegerLength[k]] f+k]; Array[ssp,20] (* _Harvey P. Dale_, May 05 2019 *)
%Y Cf. A068844, A001358.
%K base,nonn
%O 1,1
%A _Jason Earls_, Jun 21 2004
|