OFFSET
1,2
COMMENTS
Conjecture: a(n) = n*A165781(n). - R. J. Mathar, Nov 11 2014
LINKS
Lars Blomberg, Table of n, a(n) for n = 1..1661
MAPLE
A249596 := proc(n)
local m, b, mbas, msf ;
b := 2;
for m from 1 to 1999999 do
mbas := convert(m, base, b) ;
msf := [op(-1, mbas), op(1..nops(mbas)-1, mbas)] ;
msf := add(op(i, msf)*b^(i-1), i=1..nops(msf)) ;
if m/n = msf then
return m;
end if;
end do:
-1 ;
end proc:
for n from 1 do
print(n, A249596(n)) ;
end do: # R. J. Mathar, Nov 11 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
R. J. Mathar, Mar 30 2009
EXTENSIONS
a(15)-a(33) from Lars Blomberg, Feb 05 2015
STATUS
approved