login
a(n) = n*p where p is the next prime >= n.
0

%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