%I #13 Jun 18 2022 19:02:26
%S 11,23,61,241,1201,7207,504001,4032029,36288017,362880043,3991680029,
%T 47900160013,622702080047,8717829120019,130767436800073,
%U 2092278988800037,35568742809600019,640237370572800041
%N Smallest prime with same leading digits as n!.
%e a(7) = 504011 because this is the smallest prime starting with 7! = 5040.
%p for i from 1 to 40 do a := nextprime(i!*10); b := 1; while(ai!*10^b>=10^b) do b := b+1; a := nextprime(i!*10^b); end do; c[i] := a; end do:q := seq(c[i],i=1..40);
%t Table[p = i!; k = 1; While[IntegerDigits[p] != Take[IntegerDigits[x = NextPrime[p*10^k]], IntegerLength[p]], k += 1]; x, {i, 18}] (* _Jayanta Basu_, Aug 09 2013 *)
%Y Cf. A068845.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, Mar 10 2002
%E More terms from _Sascha Kurz_, Mar 17 2002
