A082048 - OEIS

%I #14 Aug 12 2023 00:42:41

%S 2,3,5,5,7,7,11,9,11,11,13,13,17,15,17,17,19,19,23,21,23,23,29,25,29,

%T 27,29,29,31,31,37,33,35,35,37,37,41,39,41,41,43,43,47,45,47,47,53,49,

%U 53,51,53,53,59,55,59,57,59,59,61,61,67,63,65,65,67,67,71,69,71,71,73,73

%N a(n) = least number greater than n having greater smallest prime factor than that of n.

%H Robert Israel, <a href="/A082048/b082048.txt">Table of n, a(n) for n = 1..10000</a>

%F A020639(a(n)) > A020639(n) and A020639(i) <= A020639(n) for n < i < a(n);

%F for m > 1: a(m) = m+1 iff m even;

%F p prime: a(p) = next prime: a(A000040(n)) = A000040(A049084(n)+1).

%t gsp[n_]:=Module[{k=n+1,f=FactorInteger[n][[1,1]]},While[ FactorInteger[ k] [[1,1]]<=f,k++];k]; Array[gsp,80] (* _Harvey P. Dale_, Sep 05 2015 *)

%Y Cf. A000040, A082049, A049084.

%K nonn

%O 1,1

%A _Reinhard Zumkeller_, Apr 02 2003