|
Search: id:A053024
|
|
|
| A053024 |
|
a(n) = n*p where p is the next prime >= n. |
|
+0
1
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MAPLE
|
seq(nextprime(i)*(i+1), i=0..49); - Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), 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, (zakseidov(AT)yahoo.com), Aug 21 2006 *)
|
|
CROSSREFS
|
Sequence in context: A096354 A076838 A034749 this_sequence A090166 A101338 A018102
Adjacent sequences: A053021 A053022 A053023 this_sequence A053025 A053026 A053027
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Jeff Choate (bopeton(AT)gmail.com), Feb 24 2000
|
|
EXTENSIONS
|
Corrected and extended by James A. Sellers (sellersj(AT)math.psu.edu), Feb 25 2000
|
|
|
Search completed in 0.002 seconds
|
