|
%I #31 Apr 25 2020 03:18:13
%S 0,11,22,33,44,55,66,77,88,99,101,110,202,211,220,303,312,321,330,404,
%T 413,422,431,440,505,514,523,532,541,550,606,615,624,633,642,651,660,
%U 707,716,725,734,743,752,761,770,808,817,826,835,844,853,862,871,880
%N Nonnegative integers whose digital difference is 0.
%C The subsequence of multiples of 11 begins: 0, 11, 22, 33, 44, 55, 66, 77, 88, 99, 110, 220, 330, 440...
%C The subsequence of primes begins: 11, 101, 211, 431, 523, 541, 743, 761, 853, ... (see A156307).
%F If decimal expansion of n is x1 x2 ... xk then x1 - x2 - ... - xk = 0.
%t fQ[n_] := Module[{d = IntegerDigits[n]}, d[[1]] == Total[Rest[d]]]; Select[Range[0, 1000], fQ] (* _T. D. Noe_, Jan 02 2013 *)
%Y Cf. A040997, A007953, A156307.
%K nonn,base
%O 1,2
%A _Dario Piazzalunga_, Jan 02 2013
%E Definition edited by _Michel Marcus_, Oct 26 2014
|
