cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A282134 First differences of A045876.

This page as a plain text file.
%I A282134 #11 Feb 07 2017 17:54:52
%S A282134 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 A282134 11,11,11,-88,11,11,-22,44,11,11,11,11,11,-88,11,11,11,-33,55,11,11,
%U A282134 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 A282134 First differences of A045876.
%C A282134 See also scatterplot of this sequence.
%H A282134 Altug Alkan, <a href="/A282134/b282134.txt">Table of n, a(n) for n = 1..10000</a>
%F A282134 a(n) = A045876(n+1) - A045876(n).
%e A282134 a(11) = 22 because A045876(12) - A045876(11) = (12 + 21) - 11 = 22.
%t A282134 Differences@ Table[Total[FromDigits /@ Permutations@ IntegerDigits@ n], {n, 81}] (* _Michael De Vlieger_, Feb 07 2017, after _T. D. Noe_ at A045876 *)
%o A282134 (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 A282134 a(n) = A045876(n+1) - A045876(n);
%Y A282134 Cf. A045876.
%K A282134 base,easy,sign
%O A282134 1,9
%A A282134 _Altug Alkan_, Feb 06 2017