OFFSET
1,2
COMMENTS
a(12) > 138000, if it exists. - Amiram Eldar, Mar 01 2024
EXAMPLE
a(3) = 7 because 1101001100101/7 = 157285871443.
MATHEMATICA
seq[max_] := Module[{o = Select[Range[2*max], OddQ[DigitCount[#, 2][[1]]] &], sum = 0, s = {}}, Do[sum += 10^(o[[k]] - 1); If[Divisible[IntegerReverse[sum], k], AppendTo[s, k]], {k, 1, Length[o]}]; s]; seq[1000] (* Amiram Eldar, Mar 01 2024 *)
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Jason Earls, Jul 28 2005
EXTENSIONS
a(10)-a(11) from Amiram Eldar, Mar 01 2024
STATUS
approved