|
|
A068844
|
|
Smallest prime with same leading digits as n!.
|
|
2
|
|
|
11, 23, 61, 241, 1201, 7207, 504001, 4032029, 36288017, 362880043, 3991680029, 47900160013, 622702080047, 8717829120019, 130767436800073, 2092278988800037, 35568742809600019, 640237370572800041
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|