login
A088400
a(n)=A069530(n)/n.
2
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, 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, 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
OFFSET
1,1
LINKS
MAPLE
read("transforms"):
A088400 := proc(n)
local m ;
if modp(n, 3) = 0 then
0 ;
else
for m from 1 do
if digsum(m*n) = 11 then
return m ;
end if;
end do:
end if;
end proc: # R. J. Mathar, Aug 06 2019
CROSSREFS
Cf. A069530.
Sequence in context: A165769 A040815 A033349 * A040814 A307129 A303615
KEYWORD
nonn,base
AUTHOR
Ray Chandler, Sep 28 2003
STATUS
approved