A215249 - OEIS

%I #9 Aug 12 2012 15:41:49

%S 1,3,4,5,6,11,8,9,10,11,24,13,16,15,16,21,24,19,20,21,40,25,24,35,26,

%T 69,28,33,30,31,34,39,56,35,48,49,38,39,50,41,54,47,44,45,46,49,48,53,

%U 50,57,56,53,54,55,56,69,64,59,60,67,64,105,64,65,66,71,68,75

%N a(n) is the smallest number m >= n such that m^2 + n is a prime.

%H T. D. Noe, <a href="/A215249/b215249.txt">Table of n, a(n) for n = 1..1000</a>

%t Table[m = n; While[! PrimeQ[m^2 + n], m++]; m, {n, 100}] (* _T. D. Noe_, Aug 12 2012 *)

%Y Cf. A058055, A085099.

%K nonn

%O 1,2

%A _N. J. A. Sloane_, Aug 10 2012