OFFSET
0,2
MAPLE
a:= proc(n) option remember; `if`(n=0, 1,
(t-> t^2 + 1 - ilog2(t))(a(n-1)))
end:
seq(a(n), n=0..9); # Alois P. Heinz, Jan 06 2022
MATHEMATICA
NestList[#^2+1-Floor[Log2[#]]&, 1, 10] (* Harvey P. Dale, Jan 06 2022 *)
PROG
(PARI) first(n) = my(t = 1, res = List([1])); for(i= 1, n-1, t = t^2 + 1 - logint(t, 2); listput(res, t)); res \\ David A. Corneth, Jan 06 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Nov 25 2004
EXTENSIONS
Corrected by Harvey P. Dale, Jan 06 2022
STATUS
approved