%I #5 Nov 21 2013 12:48:39

%S 14,30,67,171,246,255,315,374,455,722,822,911,963,978,1410,1650,1826,

%T 2103,2390,2558,2747,3030,3055,3170,6642,8414,8807,8879,10647,10967,

%U 11502,11543,11627,11750,12866,13263,13607,15030,16070,16411,16907

%N Numbers n such that n+2*prime(n) is a perfect square.

%t Select[Range[17000],IntegerQ[Sqrt[#+2Prime[#]]]&] (* _Harvey P. Dale_, Aug 18 2011 *)

%Y Cf. A104783, A104788, A104852.

%K nonn

%O 1,1

%A _Zak Seidov_, Apr 23 2005