OFFSET
1,1
COMMENTS
Is every term except 30 a power of either 2 or 3?
EXAMPLE
For n=4: 9 written in bases 2 through 9 is 1001, 100, 21, 14, 13, 12, 11, 10. In 4 bases, namely 2, 3, 8 and 9, all digits are 0 or 1.
MATHEMATICA
f[1]=0; f[k_] := Length[Select[Rest[Union[Divisors[k], Divisors[k-1]]], Max@@IntegerDigits[k, # ]==1&]]; a[n_] := For[k=1, True, k++, If[f[k]==n, Return[k]]]
CROSSREFS
KEYWORD
more,base,nonn
AUTHOR
Naohiro Nomoto, Mar 28 2002
EXTENSIONS
Edited by Dean Hickerson, Mar 31 2002
STATUS
approved