A068844 - OEIS

%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(a-i!*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