|
|
A128858
|
|
Number of digits in A128857(n).
|
|
2
|
|
|
1, 18, 28, 6, 42, 58, 22, 13, 44, 2, 108, 48, 21, 46, 148, 13, 78, 178, 6, 99, 18, 8, 228, 7, 41, 6, 268, 15, 272, 66, 34, 28, 138, 112, 116, 179, 5, 378, 388, 18, 204, 418, 6, 219, 32, 48, 66, 239, 81, 498, 508, 43, 506, 42, 60, 42, 284, 192, 90, 299, 84, 618, 48, 35
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Give[a_, n_]:=Block[{d=Floor[Log[10, n]]+1, m=(10n-1)/GCD[10n-1, a]}, If[m?1, While[PowerMod[10, d, m]!=N, d++ ], d=1]; ((10^(d+1)-1) a n)/(10n-1)]; Length[IntegerDigits[Give[1, n]]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Anton V. Chupin (chupin(X)icmm.ru), Apr 12, 2007
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|