OFFSET
1,2
COMMENTS
a(n) >= n.
It appears that the density of n such that a(n) = n is 1/2.
LINKS
PROG
(GAP) A214881 := function(max) local result, i; result := [6]; for i in [2..max] do Add(result, (2*result[i-1] - result[i-1]^2) mod 10^i); od; result := List(result, x->Valuation(x, 2)); return result; end;
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Eric M. Schmidt, Jul 29 2012
STATUS
approved