|
%I #14 Jun 13 2016 04:24:33
%S 9,10,26,33,57,65,82,91,122,129,134,141,145,161,177,185,206,217,226,
%T 265,289,321,362,381,407,427,485,505,511,537,566,626,633,667,681,689,
%U 703,737,745,778,785,793,841,842,849,898,901,905,985,1018,1041,1057,1081
%N Semiprimes that are the sum of a positive square and a positive cube.
%C Semiprime analog of A066649, Primes of the form a^2 + b^3 with a, b > 0.
%H Giovanni Resta, <a href="/A123048/b123048.txt">Table of n, a(n) for n = 1..10000</a>
%F A001358 INTERSECTION A055394.
%e a(1) = 9 = 2^3 + 1^2 = 3*3.
%e a(2) = 10 = 3^2 + 1^3 = 2*5.
%e a(3) = 26 = 5^2 + 1^3 = 2*13.
%e a(4) = 33 = 5^2 + 2^3 = 3*11.
%e a(5) = 57 = 7^2 + 2^3 = 3*19.
%e a(6) = 65 = 1^2 + 4^3 = 8^2 + 1^3 = 5*13.
%t Select[ Union[ Plus @@@ Tuples[{Range[4^3]^2, Range[4^2]^3}]], # < 1082 && Plus @@ Last /@ FactorInteger[#] == 2 &] (* _Giovanni Resta_, Jun 12 2016 *)
%Y Cf. A001358, A055394, A066649.
%K easy,nonn
%O 1,1
%A _Jonathan Vos Post_, Sep 25 2006
%E More terms from _Robert G. Wilson v_, Sep 29 2006
|
