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

2, 4, 9, 20, 25, 42, 49, 88, 99, 110, 121, 156, 169, 238, 255, 272, 289, 342, 361, 460, 483, 506, 529, 696, 725, 754, 783, 812, 841, 930, 961, 1184, 1221, 1258, 1295, 1332, 1369, 1558, 1599, 1640, 1681, 1806, 1849, 2068, 2115, 2162, 2209, 2544, 2597, 2650

Offset: 1

Author

Jeff Choate (bopeton(AT)gmail.com), Feb 24 2000

Keywords

• easy
• nonn

Programs

Maple

seq(nextprime(i)*(i+1),i=0..49); # Zerinvary Lajos, Jan 23 2007

Mathematica

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 *)
Array[ #If[PrimeQ@#, #, Prime[PrimePi@# + 1]] &, 50] (* Zak Seidov, Aug 21 2006 *)

Extensions

Corrected and extended by James Sellers, Feb 25 2000