OFFSET
2,1
LINKS
Michael De Vlieger, Table of n, a(n) for n = 2..16384
MATHEMATICA
Table[Function[k, SelectFirst[Range[2, n], And[! CoprimeQ[#, n], DigitCount[#, 2, 0] == k] &]]@ DigitCount[n, 2, 0], {n, 2, 84}] (* Michael De Vlieger, Oct 26 2017 *)
CROSSREFS
KEYWORD
AUTHOR
Leroy Quet, Oct 05 2008
EXTENSIONS
Extended by Ray Chandler, Nov 03 2008
STATUS
approved