

A073761


Primitive numbers whose decimal expansion of 1/n is equidistributed in base 10.


1



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;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

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.


LINKS

Table of n, a(n) for n=1..44.


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: A142065 A304153 A305506 * A142093 A063337 A306750
Adjacent sequences: A073758 A073759 A073760 * A073762 A073763 A073764


KEYWORD

nonn,base


AUTHOR

Donald S. McDonald, Sep 02 2002


EXTENSIONS

Edited by Robert G. Wilson v, Sep 06 2002


STATUS

approved



