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.
From Jianing Song, Jul 29 2022: (Start)
There are 58 composite terms below 100000, 2 among which being even: a(239) = 25064 = 2^3 * 13 * 241, and a(613) = 72728 = 2^3 * 9091.
Conjecture 1: let p be a prime such that ord(10,p) is a multiple of 10, where ord(a,m) denotes the multiplicative order of a modulo m. Then p is a term if and only if 10 is a primitive root modulo p.
Conjecture 2: suppose that m is a term with bigomega(m) = 2, then m = p*q, where p == 1 (mod 10), q == 9 (mod 10), gcd(p-1,q-1) = 2, ord(10,p) = (p-1)/2, and ord(10,q) = q-1. Note that the converse is not true, though.
There are no counterexamples to the conjectures above below 100000.
Is there any odd term m such that bigomega(m) > 2? (End)
REFERENCES
David Wells, The Penguin Dictionary of Curious and Interesting Numbers, revised edition, London, England, 1997, entry 61, page 110.
LINKS
Jianing Song, Table of n, a(n) for n = 1..808 (all terms <= 100000)
EXAMPLE
61 is a term 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
KEYWORD
nonn,base
AUTHOR
Donald S. McDonald, Sep 02 2002
EXTENSIONS
Edited by Robert G. Wilson v, Sep 06 2002
STATUS
approved