cp's OEIS Frontend

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

%I A085321 #10 Jul 29 2017 13:29:19
%S A085321 15,15,15,35,15,15,50,15,65,15,15,15,50,15,65,95,15,65,34,15,15,50,15,
%T A085321 46,19,95,15,65,175,114,15,32,15,15,3,47,15,65,48,47,15,65,175,67,47,
%U A085321 15,65,175,226,15,15,50,15,48,17,30,15,50,15,65,110,65,114,15,65,110,65
%N A085321 First difference sequence of A003337, i.e., consecutive differences between those consecutive numbers which are sums of three 4th powers.
%e A085321 48 = 16 + 16 + 16, 83 = 81 + 1 + 1, 81 - 48 = 35 = a(4);
%e A085321 Certain differences occur consequently like 15, 30, 31, 32, 49, 50, 64, 65, 175, etc.;
%e A085321 Distance of closest neighbors equals 1,
%e A085321 like those of 7202 = 6561 + 625 + 16 and 7203 = 2401 + 2401 + 2401.
%t A085321 {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 A085321 Cf. A003337, A003327-A003399.
%K A085321 nonn
%O A085321 1,1
%A A085321 _Labos Elemer_, Jul 01 2003