OFFSET
1,3
COMMENTS
a(114) would require the factorization of the 190-digit number 1000*114!+181. - Hugo Pfoertner, May 18 2021
LINKS
Hugo Pfoertner, Table of n, a(n) for n = 1..113, (terms a(1)-a(101) from Sean A. Irvine, a(102) from Florian Baur)
EXAMPLE
Refers to the semiprimes 10, 21, 62, 247, 1202, 7201, 50401, 403201, etc.
MAPLE
A095194 := proc(n) local nf, i, ns ; nf := convert(n!, base, 10) ; for i from 1 do ns := [op(convert(i, base, 10)), op(nf)] ; add( op(j, ns)*10^(j-1), j=1..nops(ns)) ; if numtheory[bigomega](%) = 2 then return i ; end if; end do: end proc: # R. J. Mathar, Jun 17 2011
MATHEMATICA
Array[Block[{m = #!, k = 0}, While[PrimeOmega[10^If[k == 0, 1, IntegerLength[k]]*m + k] != 2, k++]; k] &, 40] (* Michael De Vlieger, May 17 2021 *)
PROG
(PARI) a(n)=for(i=0, 1e9, bigomega(eval(Str(n!, i)))==2 & return(i)) \\ M. F. Hasler, Jun 17 2011
CROSSREFS
KEYWORD
base,nonn,hard
AUTHOR
Jason Earls, Jun 21 2004
EXTENSIONS
Corrected and extended by Sean A. Irvine, Jun 16 2011
STATUS
approved