%I #19 May 07 2019 10:36:17
%S 0,17,294,4065,51196,607665,6830778,70877105,600233832,987654321,
%T 825675983710,112194887206065,12818235881062068,1402009104162096305,
%U 150975227220606794946,16132966377037278102705
%N a(n) = (concatenation of numbers from n to 1) - n^n.
%C For n = 76 we get a negative number. - _Stefan Steinerberger_, Jun 05 2007
%H Georg Fischer, <a href="/A083453/b083453.txt">Table of n, a(n) for n = 1..100</a>
%e a(4) = 4321 - 256 = 4065.
%t a = {}; For[n = 1, n < 20, n++, AppendTo[a, FromDigits[Flatten[Table[IntegerDigits[n - i], {i, 0, n - 1}]]] - n^n]]; a (* _Stefan Steinerberger_, Jun 05 2007 *)
%t Table[FromDigits[Flatten[IntegerDigits/@Reverse[Range[n]]]]-n^n,{n,20}] (* _Harvey P. Dale_, May 07 2019 *)
%K base,sign
%O 1,2
%A _Amarnath Murthy_ and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 01 2003
%E More terms from _Stefan Steinerberger_, Jun 05 2007
|