OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..89 (calculated from the b-file at A003337)
EXAMPLE
Distance of closest neighbors in A003337 equals 1: 7202 = 6561 + 625 + 16 and 7203 = 2401 + 2401 + 2401 are corresponding neighbors, so 7202 is a term.
MATHEMATICA
{m=25, k=4, m^k} t=Union[Flatten[Table[Table[Table[w^k+q^k+t^k, {w, 1, m}], {q, 1, m}], {t, 1, m}]]] dt=Delete[ -RotateRight[t]+t, 1]; Part[t, Flatten[Position[dt, 1]]]
Select[Partition[Union[Total/@Tuples[Range[25]^4, 3]], 2, 1], #[[2]]-#[[1]] == 1&][[All, 1]] (* Harvey P. Dale, Jul 31 2020 *)
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Labos Elemer, Jul 01 2003
EXTENSIONS
More terms from Amiram Eldar, Mar 08 2025
STATUS
approved