%I #13 Jan 12 2019 20:02:36
%S 2,4,9,20,25,42,49,88,99,110,121,156,169,238,255,272,289,342,361,460,
%T 483,506,529,696,725,754,783,812,841,930,961,1184,1221,1258,1295,1332,
%U 1369,1558,1599,1640,1681,1806,1849,2068,2115,2162,2209,2544,2597,2650
%N a(n) = n*p where p is the next prime >= n.
%p seq(nextprime(i)*(i+1),i=0..49); # _Zerinvary Lajos_, Jan 23 2007
%t NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; Table[n*NextPrim[n - 1], {n, 10}] (* _Robert G. Wilson v_, Aug 20 2006 *)
%t Array[ #If[PrimeQ@#, #, Prime[PrimePi@# + 1]] &, 50] (* _Zak Seidov_, Aug 21 2006 *)
%K easy,nonn
%O 1,1
%A Jeff Choate (bopeton(AT)gmail.com), Feb 24 2000
%E Corrected and extended by _James A. Sellers_, Feb 25 2000