cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A034179 Difference between two positive cubes in more than one way.

This page as a plain text file.
%I A034179 #21 Mar 19 2020 05:38:05
%S A034179 721,728,999,3367,5768,5824,5859,7992,8911,9919,10621,12663,12824,
%T A034179 19467,19656,23877,25669,26936,26973,27937,28063,34209,35208,35929,
%U A034179 41743,43561,46144,46592,46872,49959,53144,63936,68857,68913,71288,77779
%N A034179 Difference between two positive cubes in more than one way.
%H A034179 Giovanni Resta, <a href="/A034179/b034179.txt">Table of n, a(n) for n = 1..10000</a>
%t A034179 fQ[n_] := Block[{r = Reduce[0 < y < x && n == x^3 - y^3, {x, y}, Integers]}, If[r === False || Head[r] === And, False, Length[r] >= 2]]; Select[ Range[77780], If[ fQ[#], Print[#]; True, False] &] (* _Jean-François Alcover_, Apr 11 2011 *)
%t A034179 With[{nn=50},Take[Sort[Transpose[Select[Tally[#[[2]]-#[[1]]&/@Subsets[ Range[ nn*20]^3,{2}]],#[[2]]>1&]][[1]]],nn]] (* _Harvey P. Dale_, Mar 09 2016 *)
%Y A034179 Cf. A014439, A014440, A014441, A333376, A333377, A181123, A265625.
%K A034179 easy,nonn,nice
%O A034179 1,1
%A A034179 _Erich Friedman_
%E A034179 Extended by _Ray Chandler_, Nov 29 2008
%E A034179 Offset corrected by _Giovanni Resta_, Mar 17 2020