|
Search: id:A073761
|
|
|
| A073761 |
|
Primitive numbers whose decimal expansion of 1/n is equidistributed in base 10. |
|
+0
4
|
|
| 61, 131, 181, 461, 491, 541, 571, 701, 811, 821, 941, 971, 1021, 1051, 1091, 1171, 1181, 1291, 1301, 1349, 1381, 1531, 1571, 1621, 1741, 1811, 1829, 1861, 2141, 2221, 2251, 2341, 2371, 2411, 2621, 2731, 2741, 2851, 2861, 2971, 3011, 3221, 3251, 3301
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Usually once a number has the desired property, so do all its multiples. However there are exceptions. 61*7 in base 10 is not equidistributed. Multiples of earlier numbers are not included here.
|
|
REFERENCES
|
David Wells, The Penguin Dictionary of Curious and Interesting Numbers, revised edition, London, England, 1997, entry 61, page 110.
|
|
EXAMPLE
|
a(1) = 61 because 1/61 = .016393... (period 60 digits, 6 of each 0,1,..9).
|
|
MATHEMATICA
|
a = {}; Do[d = RealDigits[1/n][[1, 1]]; If[ !IntegerQ[d] && Count[d, 0] == Count[d, 1] == Count[d, 2] == Count[d, 3] == Count[d, 4] == Count[d, 5] == Count[d, 6] == Count[d, 7] == Count[d, 8] == Count[d, 9], If[ Select[n/a, IntegerQ] == {}, a = Append[a, n]]], {n, 11, 3330}]; a
|
|
CROSSREFS
|
Cf. A074709.
Sequence in context: A044248 A044629 A142065 this_sequence A142093 A063337 A142172
Adjacent sequences: A073758 A073759 A073760 this_sequence A073762 A073763 A073764
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Donald S McDonald (don.lotto(AT)paradise.net.nz), Sep 02 2002
|
|
EXTENSIONS
|
Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 06 2002
|
|
|
Search completed in 0.002 seconds
|
