|
%I #16 Jun 30 2017 20:39:02
%S 4,13,12,3,61,42,50,39,43,80,65,89,180,110,146,160,156,187,88,118,258,
%T 243,244,282,287,189,343,311,203,410,219,467,473,274,384,535,406,484,
%U 54,825,310,558,551,375,886,659,539,515,294,914,764,478,774,757,823
%N Differences of A287894.
%C The first two negative terms are a(99) = -239 and a(999) = -5966. - _Giovanni Resta_, Jun 07 2017
%H Robert Israel, <a href="/A287895/b287895.txt">Table of n, a(n) for n = 1..1000</a>
%e Take the differences of 1,5,18,30,... => 4,13,12,...
%p ds:= n -> convert(convert(n,base,10),`+`):
%p f:= n -> add(ds(k^n),k=1..n):
%p A287894:= map(f, [$1..101]);
%p A287894[2..101] - A287894[1..100]; # _Robert Israel_, Jun 30 2017
%t s[n_] := Sum[Total@IntegerDigits[k^n], {k, n}]; Differences@ Array[s, 60] (* _Giovanni Resta_, Jun 07 2017 *)
%Y Cf. A287894.
%K sign,base
%O 1,1
%A _Marian Kraus_, Jun 02 2017
|
