OFFSET
1,1
MATHEMATICA
ssp[n_]:=Module[{f=n!, k=0}, While[PrimeOmega[10^Max[IntegerLength[k], 1] f+k]!=2, k++]; 10^Max[1, IntegerLength[k]] f+k]; Array[ssp, 20] (* Harvey P. Dale, May 05 2019 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jason Earls, Jun 21 2004
STATUS
approved