|
%I #11 Feb 07 2017 17:54:52
%S 1,1,1,1,1,1,1,1,2,0,22,11,11,11,11,11,11,11,-88,11,-11,33,11,11,11,
%T 11,11,11,-88,11,11,-22,44,11,11,11,11,11,-88,11,11,11,-33,55,11,11,
%U 11,11,-88,11,11,11,11,-44,66,11,11,11,-88,11,11,11,11,11,-55,77,11,11,-88,11,11,11,11,11,11,-66,88,11,-88,11
%N First differences of A045876.
%C See also scatterplot of this sequence.
%H Altug Alkan, <a href="/A282134/b282134.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A045876(n+1) - A045876(n).
%e a(11) = 22 because A045876(12) - A045876(11) = (12 + 21) - 11 = 22.
%t Differences@ Table[Total[FromDigits /@ Permutations@ IntegerDigits@ n], {n, 81}] (* _Michael De Vlieger_, Feb 07 2017, after _T. D. Noe_ at A045876 *)
%o (PARI) A045876(n) = {my(d=digits(n), q=1, v, t=1); v = vecsort(d); for(i=1, #v-1, if(v[i]==v[i+1], t++, q*=binomial(i, t); t=1)); q*binomial(#v, t)*(10^#d-1)*vecsum(d)/9/#d}
%o a(n) = A045876(n+1) - A045876(n);
%Y Cf. A045876.
%K base,easy,sign
%O 1,9
%A _Altug Alkan_, Feb 06 2017
|
