OFFSET
1,2
LINKS
John Tyler Rascoe, Table of n, a(n) for n = 1..8192
MAPLE
A119614 := proc (mmax) local a, m, k, an; a := [1] ; for m from 0 to mmax do for k from 1 to 2^m do an := a[2^m+1-k]*a[k]+1 ; a := [op(a), an] ; od ; od ; RETURN(a) ; end: an := A119614(6) : for i from 1 to nops(an) do printf("%d, ", an[i]) ; od ; # R. J. Mathar, Aug 06 2006
PROG
(Python)
from itertools import count, islice
def a_gen():
A = [1]
yield(1)
for m in count(0):
for k in range(2**m):
x = A[(2**m)-k-1]*A[k] + 1
A.append(x)
yield(x)
A119614_list = list(islice(a_gen(), 2**6)) # John Tyler Rascoe, May 10 2024
CROSSREFS
KEYWORD
AUTHOR
Leroy Quet, Jun 05 2006
EXTENSIONS
More terms from R. J. Mathar, Aug 06 2006
STATUS
approved