|
%I #5 Oct 31 2013 12:17:34
%S 8,27,64,216,343,1000,24389,27000,35937,42875,46656,68921,74088,97336,
%T 148877,226981,373248,405224,456533,551368,681472,970299,1191016,
%U 1771561,1860867,2048383,2352637,3112136,3375000,4019679,4410944
%N Cubes of the form semiprime(k) + k-th composite number.
%C Corresponding k's: 1, 6, 15, 50, 78, 219, 4803, 5303, 6973, 8261, 8968, 13058, 13972, 18210, 27426, 41167, ..., . - _Robert G. Wilson v_, Dec 30 2005
%C The corresponding cube roots: 2, 3, 4, 6, 7, 10, 29, ..., . - _Robert G. Wilson v_, Dec 30 2005
%t Composite[n_Integer] := FixedPoint[n + PrimePi@# + 1 &, n + PrimePi@n + 1]; fQ[n_] := Plus @@ Last /@ FactorInteger@n == 2; c = 0; t = {}; Do[ If[fQ[n], c++; a = n + Composite[c]; If[ IntegerQ[a^(1/3)], AppendTo[t, a]]], {n, 10^7}] (* _Robert G. Wilson v_ *)
%K nonn
%O 1,1
%A _Giovanni Teofilatto_, Dec 29 2005
%E More terms from _Robert G. Wilson v_, Dec 30 2005
|
