cp's OEIS Frontend

A249599 Analog of A097717 in base 5.

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