cp's OEIS Frontend

A088400 a(n)=A069530(n)/n.

%I A088400 #5 Aug 06 2019 05:40:51
%S A088400 29,19,0,14,13,0,8,7,0,29,19,0,5,4,0,8,7,0,2,19,0,14,4,0,17,7,0,2,1,0,
%T A088400 5,4,0,8,7,0,2,1,0,14,4,0,8,7,0,2,1,0,5,13,0,8,7,0,11,1,0,5,4,0,17,7,
%U A088400 0,2,1,0,5,4,0,8,16,0,2,1,0,5,4,0,8,7,0,2,1,0,5,4,0,8,7,0,2,1,0,5,4,0,26,25
%N A088400 a(n)=A069530(n)/n.
%H A088400 R. J. Mathar, <a href="/A088400/b088400.txt">Table of n, a(n) for n = 1..1110</a>
%p A088400 read("transforms"):
%p A088400 A088400 := proc(n)
%p A088400     local m ;
%p A088400     if modp(n,3) = 0 then
%p A088400          0 ;
%p A088400     else
%p A088400         for m from 1 do
%p A088400             if digsum(m*n) = 11 then
%p A088400                 return m ;
%p A088400             end if;
%p A088400         end do:
%p A088400     end if;
%p A088400 end proc: # _R. J. Mathar_, Aug 06 2019
%Y A088400 Cf. A069530.
%K A088400 nonn,base
%O A088400 1,1
%A A088400 _Ray Chandler_, Sep 28 2003