2
$\begingroup$

Mostly I would like to have back a small string produced after entering few integers...

anyway the functions is:

pw[j_Integer, nd_Integer, sl_Integer, oeo_Integer] := 
 Style[StringJoin[" ", 
   Map[ctec[[# + 1]] &, 
    First[RealDigits[N[1/Prime[j*sl + oeo], (j*sl + oeo)*10*5], 
      Length[ctec], nd, -sl*oeo]]], " "], FontSize -> 25, 
  FontColor -> Red, Bold, Background -> Yellow]

where ctec is a list of all key-able characters in Latin-kb

$\endgroup$

0

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Browse other questions tagged or ask your own question.