login
A162599
Sum of digits (bits) in base two representation of 3^(2^n).
0
2, 2, 3, 6, 11, 26, 56, 97, 204, 415, 769, 1606, 3268, 6460, 12889, 25915, 52046, 104099, 207000, 416542, 831430, 1662247, 3324374, 6646337, 13292865, 26593542, 53182276, 106364450, 212732814, 425465107, 850887793, 1701801109
OFFSET
0,1
EXAMPLE
3^(2^2) = 81 = 64 + 16 + 1, so a(2) = 3.
MAPLE
a := proc (n) local b2: b2 := convert(3^(2^n), base, 2): add(b2[j], j = 1 .. nops(b2)) end proc: seq(a(n), n = 0 .. 20); # Emeric Deutsch, Jul 21 2009
MATHEMATICA
Table[Total[IntegerDigits[3^2^n, 2]], {n, 0, 25}] (* The program generates the first 26 terms of the seequence. *) (* Harvey P. Dale, Jun 16 2024 *)
PROG
(J, version 6.0.1)
s=:(+/@|:@#:@ (3x ^ 2x ^ i.))
s 13
(PARI) a(n) = hammingweight(3^(2^n)); \\ Michel Marcus, Mar 03 2019
CROSSREFS
Cf. A000120, A011764 (3^2^n).
Sequence in context: A102762 A320783 A049853 * A064319 A307241 A064674
KEYWORD
nonn,base
AUTHOR
Daniel R. L. Brown, Jul 07 2009
EXTENSIONS
Extended by Emeric Deutsch, Jul 21 2009
More terms from Michel Marcus, Mar 03 2019
STATUS
approved