OFFSET
1,1
COMMENTS
For definition, see A175522.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MAPLE
A053735 := proc(n) add(d, d=convert(n, base, 3)) ; end proc:
isA177511 := proc(n) local a, d ; a := 0 ; for d in numtheory[divisors](n) minus {n} do a := a+A053735(d) ; end do: a = A053735(n) ; end proc:
for n from 1 to 1000 do if isA177511(n) then printf("%d, ", n) ; end if; end do: # R. J. Mathar
PROG
(SageMath) A053735 = lambda n: sum(n.digits(base=3))
# D. S. McNeil, Dec 11 2010
(PARI) isok(n) = sumdiv(n, d, (d<n)* vecsum(digits(d, 3))) == vecsum(digits(n, 3)); \\ Michel Marcus, Feb 06 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Shevelev, Dec 11 2010
EXTENSIONS
Extended by D. S. McNeil, Dec 11 2010
STATUS
approved