login
A214881
2-adic valuation of A016090.
4
1, 2, 3, 5, 5, 6, 8, 8, 9, 13, 14, 14, 14, 14, 15, 17, 17, 18, 21, 21, 22, 23, 26, 26, 26, 26, 27, 28, 30, 30, 31, 32, 34, 34, 36, 36, 38, 38, 39, 42, 41, 48, 43, 44, 49, 46, 47, 49, 52, 51, 51, 52, 53, 56, 56, 56, 63, 58, 59, 60, 61, 65, 64, 64, 66, 66, 67
OFFSET
1,2
COMMENTS
a(n) >= n.
It appears that the density of n such that a(n) = n is 1/2.
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