OFFSET
0,1
COMMENTS
LINKS
Hugo Pfoertner, Table of n, a(n) for n = 0..10
EXAMPLE
a(3)=55728='1101100110110000' -> {{}{{}}{{}{{}}}} -> {{},{{}},{{},{{}}}} -> {0,{0},{0,{0}}} -> {0,1,{0,1}} -> {0,1,2} -> A001477(3)=3.
MATHEMATICA
RecurrenceTable[{a[0]==2, a[n]==(2^(2^n)+2)a[n-1]}, a, {n, 8}] (* Harvey P. Dale, Nov 15 2020 *)
nxt[{n_, a_}]:={n+1, (2^2^(n+1)+2)a}; NestList[nxt, {0, 2}, 8][[;; , 2]] (* Harvey P. Dale, Aug 11 2023 *)
PROG
(Python)
from functools import lru_cache
@lru_cache(maxsize=None)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Mar 30 2004
STATUS
approved