OFFSET
1,2
FORMULA
{n,s}:{1,2},{2,3},{24,17},{45,17},{58,25},{64,21},{135,43},{168,55},{287,55}.
MATHEMATICA
Select[Range[30000], IntegerQ[Sqrt[(#+1)Prime[#+1]-# Prime[#]]]&] (* Harvey P. Dale, Mar 20 2012 *)
PROG
(PARI) a=2; {for(n=1, 10^5, b=nextprime(a+1); issquare((n+1)*b-n*a)&print(n); a=b)}
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Oct 12 2010
STATUS
approved