A006287 Sum of squares of digits of ternary representation of n.

0, 1, 4, 1, 2, 5, 4, 5, 8, 1, 2, 5, 2, 3, 6, 5, 6, 9, 4, 5, 8, 5, 6, 9, 8, 9, 12, 1, 2, 5, 2, 3, 6, 5, 6, 9, 2, 3, 6, 3, 4, 7, 6, 7, 10, 5, 6, 9, 6, 7, 10, 9, 10, 13, 4, 5, 8, 5, 6, 9, 8, 9, 12, 5, 6, 9, 6, 7

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn
• base

References

• Jeffrey Shallit, personal communication.
• N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Links

• R. J. Mathar, Table of n, a(n) for n = 0..500
• Michael Gilleland, Some Self-Similar Integer Sequences
• Robert Walker, Self Similar Sloth Canon Number Sequences

Crossrefs

Cf. A053735

Programs

Maple

A006287 := proc(n)
    local d ;
    convert(n,base,3) ;
    add(d^2,d=%) ;
end proc: # R. J. Mathar, Jun 13 2014

Mathematica

Table[Total[IntegerDigits[n,3]^2],{n,0,80}]  (* Harvey P. Dale, Apr 23 2011 *)