%I #24 May 07 2022 10:43:11
%S 0,72,4608,52488,294912,1125000,3359232,8470728,18874368,38263752,
%T 72000000,127552392,214990848,347530248,542126592,820125000,
%U 1207959552,1737904968,2448880128,3387303432,4608000000,6175160712,8163353088,10658584008,13759414272,17578125000
%N Integers whose double is a square and whose triple is a cube.
%H Colin Barker, <a href="/A286930/b286930.txt">Table of n, a(n) for n = 1..1000</a>
%H Ana Rechtman, <a href="http://images.math.cnrs.fr/Mai-2017-2e-defi.html">Mai 2017, 2e défi</a>, Images des Mathématiques, CNRS, 2017 (in French).
%H <a href="/index/Rec#order_07">Index entries for linear recurrences with constant coefficients</a>, signature (7,-21,35,-35,21,-7,1).
%F a(n) = 72*(n-1)^6. - _David A. Corneth_, May 16 2017
%F O.g.f.: 72*x^2*(1 + x)*(1 + 56*x + 246*x^2 + 56*x^3 + x^4) / (1 - x)^7. - _Colin Barker_, May 17 2017
%F E.g.f.: 72*(-1 + (1 - x + x^2 + 10*x^3 + 20*x^4 + 9*x^5 + x^6)*exp(x)). - _Bruno Berselli_, May 17 2017
%e From _Michael De Vlieger_, May 16 2017: (Start)
%e 72 is a term because 2*72 = 144 = 12^2 and 3*72 = 216 = 6^3.4608 is a term because 2*4608 = 96^2 and 3*4608 = 24^3. (End)
%t Array[72 (# - 1)^6 &, 26] (* _Michael De Vlieger_, May 16 2017 *)
%t LinearRecurrence[{7,-21,35,-35,21,-7,1},{0,72,4608,52488,294912,1125000,3359232},30] (* _Harvey P. Dale_, May 07 2022 *)
%o (PARI) isok(x) = issquare(2*x) && ispower(3*x, 3);
%o (PARI) concat(0, Vec(72*x^2*(1 + x)*(1 + 56*x + 246*x^2 + 56*x^3 + x^4) / (1 - x)^7 + O(x^30))) \\ _Colin Barker_, May 17 2017
%Y Cf. A001014.
%Y Intersection of A001105 and A244728.
%K nonn,easy
%O 1,2
%A _Michel Marcus_, May 16 2017
%E More terms from _Michael De Vlieger_, May 16 2017
|