cp's OEIS Frontend

A226327 Sum of digits of n equals sum of digits of its antisigma (A024816).

%I A226327 #7 Jun 04 2013 13:09:59
%S A226327 24,46,69,78,145,147,169,177,186,198,451,459,460,474,478,495,568,586,
%T A226327 588,618,639,667,685,738,801,838,864,865,987,1194,1198,1485,1486,1495,
%U A226327 1558,1566,1639,1698,1738,1878,1954,1959,2295,2458,2494,2538,2584,2655,2656
%N A226327 Sum of digits of n equals sum of digits of its antisigma (A024816).
%H A226327 Paolo P. Lava, <a href="/A226327/b226327.txt">Table of n, a(n) for n = 1..1000</a>
%e A226327 For 2584 we have antisigma(2584) = 2584*(2584 + 1)/2 - sigma(2584) = 3334420 and 2 + 5 + 8 + 4 = 3 + 3 + 3 + 4 + 4 + 2 + 0 = 19.
%p A226327 with(numtheory); SA:=proc(t) global v,z; v:=0; z:=t;
%p A226327 while z>0 do v:=v+(z mod 10); z:=trunc(z/10); od; v; end:
%p A226327 A226327:=proc(q) local n; for n from 1 to q do
%p A226327 if SA(n)=SA(n*(n+1)/2-sigma(n)) then print(n);
%p A226327 fi; od; end: A226327(10^4);
%Y A226327 Cf. A024816, A067343.
%K A226327 nonn,base
%O A226327 1,1
%A A226327 _Paolo P. Lava_, Jun 04 2013