|
%I #29 Oct 13 2013 22:35:48
%S 2,11,59,149,197,233,607,829,929,1283,1619,1879,2459,2917,3251,3299,
%T 3359,3947,4523,5821,5843,5869,6043,6143,6269,6833,7229,8573,8597,
%U 9479,9619,11699,11783,11789,12379,14639,15881,16477,18869,19121,20849,21149,21617
%N Primes which are the sum of two numbers of the form k*(k+1)^2/2.
%H Charles R Greathouse IV, <a href="/A210646/b210646.txt">Table of n, a(n) for n = 1..10000</a>
%e 149 is in the sequence because 149 is prime and 149 = 2*(2+1)^2/2 + 6*(6+1)^2/2.
%t f[n_] := n (n + 1)^2/2; t = Table[f[n], {n, 0, 40}]; Select[Union[Flatten[Outer[Plus, t, t]]], # < t[[-1]] && PrimeQ[#] &] (* _T. D. Noe_, Apr 03 2012 *)
%Y Cf. A006002, A129634, A210647.
%K nonn
%O 1,1
%A _Gerasimov Sergey_, Mar 26 2012
%E Terms checked by _R. J. Mathar_, Mar 28 2012
|
