A071730 - OEIS

%I #7 Mar 30 2012 18:39:02

%S 3,7,41,11,47,17,53,23,59,173,47,41,617,47,83,89,383,97,71,107,89,83,

%T 227,233,101,137,107,251,113,149,131,167,173,239,293,167,173,167,311,

%U 317,503,197,227,197,233,263,227,227,263,233,269,383,257,827,293,587

%N Smallest prime p > prime(n) such that p-prime(n) is a square.

%o (PARI) for(n=1,100,s=n+1; while(frac(sqrt(prime(s)-prime(n)))>0,s++); print1(prime(s),","))

%K easy,nonn

%O 1,1

%A _Benoit Cloitre_, Jun 24 2002