A287895 Differences of A287894.
4, 13, 12, 3, 61, 42, 50, 39, 43, 80, 65, 89, 180, 110, 146, 160, 156, 187, 88, 118, 258, 243, 244, 282, 287, 189, 343, 311, 203, 410, 219, 467, 473, 274, 384, 535, 406, 484, 54, 825, 310, 558, 551, 375, 886, 659, 539, 515, 294, 914, 764, 478, 774, 757, 823
Offset: 1
Examples
Take the differences of 1,5,18,30,... => 4,13,12,...
Links
- Robert Israel, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A287894.
Programs
-
Maple
ds:= n -> convert(convert(n,base,10),`+`): f:= n -> add(ds(k^n),k=1..n): A287894:= map(f, [$1..101]); A287894[2..101] - A287894[1..100]; # Robert Israel, Jun 30 2017
-
Mathematica
s[n_] := Sum[Total@IntegerDigits[k^n], {k, n}]; Differences@ Array[s, 60] (* Giovanni Resta, Jun 07 2017 *)
Comments