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,1

Links

Table of n, a(n) for n=1..18.

Example

a(7) = 504011 because this is the smallest prime starting with 7! = 5040.

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 *)

Crossrefs

Cf. A068845.

Sequence in context: A097473 A366487 A081510 * A139905 A267437 A267438

Adjacent sequences: A068841 A068842 A068843 * A068845 A068846 A068847

Keyword

base,nonn

Author

Amarnath Murthy, Mar 10 2002

Extensions

More terms from Sascha Kurz, Mar 17 2002

Status

approved