OFFSET
1,1
COMMENTS
Conjecture: For any m coprime to 5 and for any k, the density of n such that a(n) == k (mod m) is 1/m.
LINKS
PROG
(GAP) A214883 := 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([1..max], n->result[n]/2^n); return result; end;
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Eric M. Schmidt, Jul 31 2012
STATUS
approved