OFFSET
1,1
EXAMPLE
48 = 16 + 16 + 16, 83 = 81 + 1 + 1, 81 - 48 = 35 = a(4);
Certain differences occur consequently like 15, 30, 31, 32, 49, 50, 64, 65, 175, etc.;
Distance of closest neighbors equals 1,
like those of 7202 = 6561 + 625 + 16 and 7203 = 2401 + 2401 + 2401.
MATHEMATICA
{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]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 01 2003
STATUS
approved