%I #21 Sep 01 2014 03:36:35
%S 0,45,234,279,423,468,612,657,801,846,1134,1179,1323,1368,1512,1557,
%T 1701,1746,1890,1935,2034,2079,2223,2268,2412,2457,2601,2646,2835,
%U 3123,3168,3312,3357,3501,3546,3735,3924,3969,4023,4068,4212,4257,4401,4446,4635,4824,4869,5112,5157,5301
%N Numbers m such that (m + digit sum of m) is a permutation of the decimal digits of m.
%C All terms are multiples of 9.
%H Jens Kruse Andersen, <a href="/A246420/b246420.txt">Table of n, a(n) for n = 1..10000</a>
%p filter:= proc(n) local L,LP;
%p L:= convert(n,base,10);
%p LP:= convert(n+convert(L,`+`),base,10);
%p sort(L) = sort(LP)
%p end proc:
%p select(filter, [$0..10000]); # _Robert Israel_, Aug 31 2014
%o (PARI)
%o for(n=0,10^4,if(vecsort(digits(n+sumdigits(n)))==vecsort(digits(n)),print1(n,", ")))
%Y Cf. A007953, A062028.
%K nonn,base,easy
%O 1,2
%A _Derek Orr_, Aug 25 2014
|