|
%I #10 Jan 11 2022 21:40:26
%S 0,2,4,5,6,7,9,10,11,12,14,15,16,17,19,21,22,23,24,26,27,28,29,31,32,
%T 33,34,36,38,39,40,41,43,44,45,46,48,49,50,51,53,55,56,57,58,60,61,62,
%U 63,65,66,67,68,69,70,71,72,74,75,76,77,79,80,81,82,84,86,87,88,89,91,92,93,94,96,97,98,99
%N Numbers k such that there is a number m with m + s_4(m) = k, where s_b(m) = sum of digits in base-b expansion of m.
%H Robert Israel, <a href="/A349829/b349829.txt">Table of n, a(n) for n = 1..10000</a>
%p g:= n -> n+convert(convert(n,base,4),`+`):
%p select(`<=`,map(g, {$0..200}),200); # _Robert Israel_, Jan 11 2022
%Y Cf. A010061, A228082.
%Y Complement of A010064.
%K nonn,base
%O 1,2
%A _N. J. A. Sloane_, Jan 07 2022
|
