OFFSET
1,3
COMMENTS
A115104 is a subsequence. Terms such that 4*n^3 + 1 is not prime are 24, 337, 457, 750, 840, 1015, ...
EXAMPLE
3 is a term because 3^3 = 27 = 6 + 21.
MATHEMATICA
Select[Range@ 333, Length[PowersRepresentations[4 #^3 + 1, 2, 2]] == 1 &] (* after Ant King at A052343, or *)
nn = 20; t = (#^2 + #)/2 & /@ Range[0, nn^3]; Select[Range[0, nn], Function[n, Count[Transpose@ {#, n^3 - #} &@ Range[0, Floor[n^3/2]], k_ /; Times @@ Boole@ Map[MemberQ[t, #] &, k] == 1] == 1]] (* Michael De Vlieger, Jul 07 2016 *)
PROG
(PARI) a052343(n) = sum(i=0, (sqrtint(4*n + 1) - 1)\2, issquare(n - i - i^2));
lista(nn) = for(n=0, nn, if(a052343(n^3) == 1, print1(n, ", ")));
CROSSREFS
KEYWORD
nonn
AUTHOR
Altug Alkan, Jul 07 2016
STATUS
approved