login
Analog of A097717 in base 2.
6

%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