|
%I #18 Feb 28 2015 09:48:22
%S 1,16,3348,411184,5,1262796336,31415153952,128,639,
%T 46402790906782052954848931760,9548,37884308119951668432,507,
%U 483747841655344,2949712546290578068913640,368402917173844349535205696,3162,1149642179207353109724066230688
%N Analog of A097717 in base 5.
%H Lars Blomberg, <a href="/A249599/b249599.txt">Table of n, a(n) for n = 1..369</a>
%e a(2)=16, because in base 5, 16 is written 31 and 16/2 is 8 and written 13.
%p A249599 := proc(n)
%p local m,b,mbas,msf ;
%p b := 5;
%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,A249599(n)) ;
%p end do: # _R. J. Mathar_, Nov 11 2014
%Y Cf. A094676, A249596, A249597, A249598.
%K nonn,base
%O 1,2
%A _R. J. Mathar_, Mar 30 2009
%E a(6)-a(18) from _Lars Blomberg_, Feb 05 2015
|
