A287895 - OEIS

%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