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,1

Links

Table of n, a(n) for n=1..50.

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 *)

Crossrefs

Sequence in context: A076838 A034749 A353734 * A240047 A090166 A101338

Adjacent sequences: A053021 A053022 A053023 * A053025 A053026 A053027

Keyword

easy,nonn

Author

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

Extensions

Corrected and extended by James A. Sellers, Feb 25 2000

Status

approved