OFFSET
1,1
LINKS
Ray Chandler, Table of n, a(n) for n = 1..1000
FORMULA
MATHEMATICA
Block[{a = {6}, k, m, w}, Do[k = 1; If[Mod[a[[-1]], 2^i] == 0, Set[w, Prepend[ConstantArray[5, i - 1], 6]], Set[w, ConstantArray[5, i]]]; While[Mod[Set[m, FromDigits[w + PadLeft[IntegerDigits[k, 2], i]]], 2^i] != 0, k++]; AppendTo[a, m], {i, 2, 18}]; a] (* Michael De Vlieger, Dec 10 2020 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Henry Bottomley, Mar 06 2000
STATUS
approved