|
Search: id:A128858
|
|
| |
|
| 1, 18, 28, 6, 42, 58, 22, 13, 44, 4, 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; listen)
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
A. V. Chupin, Table of n, a(n) for n=1..1000
|
|
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
|
Sequence in context: A038632 A138336 A094224 this_sequence A117101 A063840 A045000
Adjacent sequences: A128855 A128856 A128857 this_sequence A128859 A128860 A128861
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Anton V. Chupin (chupin(X)icmm.ru), Apr 12, 2007
|
|
|
Search completed in 0.002 seconds
|
