A249596 Analog of A097717 in base 2.
1, 2, 9, 4, 35, 558, 2205, 8, 135, 137970, 33, 1068, 545259, 135926, 138845925, 16, 527, 2106, 35288379945, 2100, 537075, 8382, 2093, 4283544, 1069975, 130, 2294286602622705, 533820, 133371, 146557818382226310, 585910928570692725, 32, 2079
Offset: 1
Links
- Lars Blomberg, Table of n, a(n) for n = 1..1661
Programs
-
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
Extensions
a(15)-a(33) from Lars Blomberg, Feb 05 2015
Comments