24/05/05 20:34:45.85 94ULEsEqH.net
a=1/(14^^2024);
m=2024;
re={};
For[i=1,i<m,i++,(re=Append[re,Floor[a*14^i]]; a=a-(14^-i)*Floor[a*14^i];)];
f[x_] := If[x==0,"0",{"1","2","3","4","5","6","7","8","9","A","J","Q","K"}[[x]]]
StringJoin["0.",f /@ re]
0.0006 K6091387Q3007K4QA561AK
K6091387Q3007K4QA561AK
K6091387Q3007K4QA561AK
K6091387Q3007K4QA561AK
K6091387Q3007K4QA561AK
K6091387Q3007K4QA561AK
.....