%I #18 Feb 24 2015 04:14:38
%S 1,2,9,4,35,558,2205,8,135,137970,33,1068,545259,135926,138845925,16,
%T 527,2106,35288379945,2100,537075,8382,2093,4283544,1069975,130,
%U 2294286602622705,533820,133371,146557818382226310,585910928570692725,32,2079
%N Analog of A097717 in base 2.
%C Conjecture: a(n) = n*A165781(n). - _R. J. Mathar_, Nov 11 2014
%H Lars Blomberg, <a href="/A249596/b249596.txt">Table of n, a(n) for n = 1..1661</a>
%p A249596 := proc(n)
%p local m,b,mbas,msf ;
%p b := 2;
%p for m from 1 to 1999999 do
%p mbas := convert(m,base,b) ;
%p msf := [op(-1,mbas),op(1..nops(mbas)-1,mbas)] ;
%p msf := add(op(i,msf)*b^(i-1),i=1..nops(msf)) ;
%p if m/n = msf then
%p return m;
%p end if;
%p end do:
%p -1 ;
%p end proc:
%p for n from 1 do
%p print(n,A249596(n)) ;
%p end do: # _R. J. Mathar_, Nov 11 2014
%Y Cf. A094676, A249597, A249598, A249599.
%K nonn,base
%O 1,2
%A _R. J. Mathar_, Mar 30 2009
%E a(15)-a(33) from _Lars Blomberg_, Feb 05 2015