A121623 Floor((prime(n)/n)^n).

2, 2, 4, 9, 51, 103, 498, 1012, 4649, 42070, 89055, 738321, 3054404, 6649146, 27548565, 210132966, 1537632445, 3475617204, 25067027254, 101057153476, 230767621110, 1638690855904, 6592587402477, 45739388949584

Offset: 1

Author

Jason Earls, Aug 11 2006

Keywords

• easy
• nonn

Crossrefs

Cf. A121624.

Programs

Mathematica

Table[Floor[(Prime[n]/n)^n],{n,25}] (* Harvey P. Dale, Aug 11 2011 *)