A068844 Smallest prime with same leading digits as n!.
11, 23, 61, 241, 1201, 7207, 504001, 4032029, 36288017, 362880043, 3991680029, 47900160013, 622702080047, 8717829120019, 130767436800073, 2092278988800037, 35568742809600019, 640237370572800041
Offset: 1
Examples
a(7) = 504011 because this is the smallest prime starting with 7! = 5040.
Crossrefs
Cf. A068845.
Programs
-
Maple
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);
-
Mathematica
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 *)
Extensions
More terms from Sascha Kurz, Mar 17 2002