A085321 - OEIS

%I #10 Jul 29 2017 13:29:19

%S 15,15,15,35,15,15,50,15,65,15,15,15,50,15,65,95,15,65,34,15,15,50,15,

%T 46,19,95,15,65,175,114,15,32,15,15,3,47,15,65,48,47,15,65,175,67,47,

%U 15,65,175,226,15,15,50,15,48,17,30,15,50,15,65,110,65,114,15,65,110,65

%N First difference sequence of A003337, i.e., consecutive differences between those consecutive numbers which are sums of three 4th powers.

%e 48 = 16 + 16 + 16, 83 = 81 + 1 + 1, 81 - 48 = 35 = a(4);

%e Certain differences occur consequently like 15, 30, 31, 32, 49, 50, 64, 65, 175, etc.;

%e Distance of closest neighbors equals 1,

%e like those of 7202 = 6561 + 625 + 16 and 7203 = 2401 + 2401 + 2401.

%t {m=12, k=5, m^k}; t=Union[Flatten[Table[Table[Table[Table[w^k+q^k+t^k+u^k, {w, 1, m}], {q, 1, m}], {t, 1, m}], {u, 1, m}]]]; Length[t]; dt=Delete[ -RotateRight[t]+t, 1]; Sort[dt]

%Y Cf. A003337, A003327-A003399.

%K nonn

%O 1,1

%A _Labos Elemer_, Jul 01 2003