OFFSET
1,1
LINKS
Zak Seidov, Table of n, a(n) for n = 1..115
EXAMPLE
4^2 = 16 = 2*5 + 3*2,
5^2 = 25 = 2*5 + 3*5,
7^2 = 49 = 2*5 + 3*13.
In case of multiple solutions (as for 5^2 and 7^2) just one solution (with least p) is shown.
MATHEMATICA
mx = 50000; Select[Sqrt[Union[Reap[Do[p = Prime[k]; Do[ Sow[ 2 Prime[i] + 3 p], {i, PrimePi[(mx - 3 p)/2]}], {k, PrimePi[(mx - 4)/3]}]][[2, 1]]]], IntegerQ]; (*for first 115 terms *)
Take[Union[Select[Sqrt[2#[[1]]+3#[[2]]]&/@Tuples[Prime[ Range[1000]], 2], IntegerQ]], 70] (* Harvey P. Dale, Feb 08 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Dec 02 2012
STATUS
approved