OFFSET
1,1
EXAMPLE
123=3*41, 1234=2*617, 1234567=127*9721, 12345678901=857*14405693,..
MATHEMATICA
f1[n_]:=Last@RealDigits[n, 10][[1]]; f2[n_]:=Last/@FactorInteger[n]=={1, 1}; lst={}; lst2={}; Do[AppendTo[lst, f1[n]]; a=FromDigits[lst]; If[f2[a], (*Print[a]; *)AppendTo[lst2, a]], {n, 43}]; lst2
Select[Table[FromDigits[PadRight[{}, n, Join[Range[9], {0}]]], {n, 40}], PrimeOmega[ #]==2&] (* Harvey P. Dale, Jun 07 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 11 2010
EXTENSIONS
Next terms have 124, 157, 247, ... decimal digits.
STATUS
approved