OFFSET
1,1
COMMENTS
A squarefree subsequence of taxicab numbers.
LINKS
Eric Weisstein's World of Mathematics, Taxicab Number
EXAMPLE
684019 = 51^3 + 82^3 = 64^3 + 75^3 = 7 * 19 * 37 * 139.
8872487 = 14^3 + 207^3 = 140^3 + 183^3 = 13 * 17 * 19 * 2113.
96753187 = 147^3 + 454^3 = 283^3 + 420^3 = 19 * 37 * 229 * 601.
MATHEMATICA
Select[Range[10^6], FactorInteger[#][[;; , 2]] == {1, 1, 1, 1} && Length @ PowersRepresentations[#, 2, 3] > 1 &] (* Amiram Eldar, May 30 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Massimo Kofler, May 30 2022
STATUS
approved
