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
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